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If you've been wondering where to begin, look no further. Of the dozens of books purporting 
to teach computer programming, INSTANT BASIC is the greatest for the following reasons: 

■ efficiency, understandability, and economy. 

■ microcomputer oriented for Microsoft-like versions of BASIC as used on the Apple, 
TRS-80, PET, Microexpander, and any brand of computer using Microsoft BASIC 80, 
with annotations for Northstar BASIC, Atari BASIC, DEC BASIC Plus, and with 
rumors and snide asides about other versions of good ole BASIC. 

■ no heavy math. 

■ neat little boxed summaries of BASIC statements throughout the book. 

■ an active-participation tutorial primer and workbook for the absolute beginner and 
compleat novice. 

■ end-of-chapter activities to see how well we've taught you BASIC. 

■ one of the smoothest and best-tested instructional sequences going! 

We keep the information coming, but in small, discrete lumps so that you don't choke up. 
(Hopefully you won't choke with laughter at our attempts at humor.) We take full 
advantage of the interactive (immediate feedback) quality of BASIC to give you practical 
demonstrations and practice for fast, easy learning. You get a working familiarity with the 
real fundamentals of BASIC in from 6 to 26 hours, fans. Our examples try to keep your 
typing time to a minimum while maximizing learning and developing good programming 
techniques. 

Our experience teaching beginners from 6 to 76 has shown that there are 
three programming concepts that sometimes give first-timers problems; 
conditional branching (IF . . . THEN), looping or iteration (FOR . . . NEXT), 
and arrays (subscripted variables). We give these concepts special attention 
using explanations and examples we have refined and found most effective 
over the years. 

We assume that you are a first timer, that you have had no previous programming experience 
at all. We assume you have ready access to a microcomputer or to a computer system 
running in BASIC. Those of you who have had a little experience will find the early chapters 
a breeze. However, for first timers, this is not a book to skip around in. Start here on page 1 
and plow on through. This "active participation" workbook is an alternative to that 
headache-producing process called "digging it out of the reference manual." INSTANT 
BASIC is a favorite learning tool with instructors AND students from junior high to 
university levels! 

The first half of the book takes it really slow and easy. We encourage you 
(in fact, we urge and exhort to the point of browbeating...) to experiment 
and try out your budding programming skills beyond the examples and pro¬ 
jects we include in the book. We want you to think of things interesting to 
you, and to think of how what you are learning may be applied to such 
things. 


Look for our Handy Reference Summaries 
placed throughout the book in boxes with 
polka dot borders like this one. 



You can USE a computer (and make very good use of it, thank you!) without ever learning 
computer programming. Thousands of ready-made programs are available for purchase and 
use on various microcomputers. People also share their own programs through magazines and 
newsletters, computer clubs, and user's groups, which are associations of people using the 
same brand computer, or a specific computer language, or specific computer application. 

But the BASIC programmer (soon to include you) will be able to take fuller advantage of the 
computer, and dispell the mystery of the (supposedly) almighty, complicated, and scarey 
computer. Welcome to the 2nd Astounding! Edition of INSTANT BASIC. 
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So let's get started. Is the computer turned on? Is the display screen or printer 
turned on? If not, find someone to show you how to turn them on. In 
addition, these are the things someone might have to show you in order to 
get started, if you are new at this game: 


(1) Is the machine (computer) turned on (or "up and running" as they say)? 

(2) If you are using a timesharing system, are you logged in to your com¬ 
puter? (Logged in means that a code has been typed into the computer 
and the computer is ready to deal with you.) 


(3) Is BASIC ready to use inside your computer when the power is turned on? 
If not, someone must show you how to load or call or plug in or initialize 
BASIC. If you are experienced and/or have patience, you might be able to 
"load" BASIC into your microcomputer by following directions in the 
reference materials for your system. 



The computer must have some way of communicating with the "outside 
world," both to receive information or instructions, and to let you know the 
results of its computing. One device used to communicate information to the 
computer is a typewriter-like keyboard. It's not identical to a typewriter 
keyboard, but close. The letters, numbers, and most punctuation marks are in the 
same keyboard positions as a typewriter, but especially the keys around the 
edges will be different, or have special functions. The keyboard may be 
"built-in" to the case that also contains the computer electronics, or it may be 
separate and plug into the computer. The keyboard may be combined with 
a printing device or CRT display, and if this is connected to the computer by a 
cable, then the device is called a computer terminal. Here's some other computer 
jargon to start chewing on. 

The keyboard is an I/O or Input/Output device. It is one of many attachments 
or peripherals that can be connected to a computer. Strictly speaking, the k 
keyboard is an input device. The printer or video display are output devices; 
since the computer can put information out to you through these peripherals. 

Another very handy I/O peripheral is a cassette recorder, or better yet, a disk 
drive. The computer itself, where the computing action takes place, is called theC.P. or 
centra! processor or microprocessor. The electronic memory has names like ROM 
(Read Only Memory) and RAM (Random Access Memory), but these hardware 
details are unimportant to the beginning programmer. 



Ready. 

mm 



2 

































































This means we want you to try this on 
your computer, so go ahead and DO IT. 

/xxyvyxxxxxx/xx/xxi 


Is your machine up and running in BASIC (turned on and ready)? To get 
the feel of things, try typing HELLO COMPUTER 


When you have finished typing HELLO COMPUTER, press the key 
marked CR or Carriage Return or RETURN or GO or ENTER. 
Despite its different names on various manufacturers' keyboards, 
this key is usually located along the righthand side of the keyboard. 
Since the keyboard I happen to be using says RETURN on this key, 
that's what I'll call it in this book, and you'll know to press the 
corresponding key on your keyboard. You'll be using it constantly 
so be sure to look for it now. 



©0®(D®®0(D(DQ5^0 

©OOOOOOOO©®®© 

0OOOO©OO©OOO00 

©00000®©00G© 





This shows a popular keyboard layout. Yours 
may be slightly to radically different. In 
either case, you'll get used to yours in short 
order. Some touch-sensitive "membrane" 
keyboards (those flat ones that have no 
discrete and separate keys that press down) 
may be quite different in layout. 


The computer will type out a message in response, such as: 

HELLO COMPUTER You type this and hit RETURN. 

^^^^^Computer tells you that you made an 
?SN ERROR error: anything it doesn't understand 

is considered an error. 


SYNTAX ERROR is 
the computer’s way 
of saying, “Get it 
right, meathead!” 





The point is, the computer didn't understand what you typed. People have 
not yet designed computers that can figure out from plain English what you 
want them to do. So to make the computer "do" something, we use a 
computer language, such as BASIC, to present our instructions to the computer. 
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This computer language (BASIC) is very simpleminded. BASIC was invented 
at Dartmouth, and stands for Beginners All-purpose Symbolic Instruction 
Code. It is designed to make computers easy to program for us non-professionals. 

You may have heard of other computer languages, such as FORTRAN, COBOL, 
APL and many others. Each language gets the computer to do things, but 
they are designed to make certain uses easier. BASIC is a general purpose 
language for non-professionals, while COBOL for example, is designed for 
business-type computer applications, and is used by professional programmers. 


BASIC uses some English words to communicate instructions to the computer. 
Since BASIC contains relatively few words and symbols, it is sort of like a very 
simple-minded foreign language, but the rules about how to say things are very, 
very, strict. These rules that define the structure ot syntax have rigid and exact 
forms or formats that must be followed in order to say things to the computer. 
Remember, a SYNTAX ERROR means you typed something that your 
computer's BASIC couldn't make heads or tails of. 



Type the word NEW. The letters will all come out in upper case without using 
the SHIFT key. Then hit the RETURN key. (Can't find it? Check back on page 
3). After you have carefully typed NEW and hit RETURN, the computer may 
respond with a message, such as READY or OK, or it may display or print what 
is called a prompt character, such as * or > or ], or on your video display screen 
a little square of light, called a cursor will sit there and blink at you. 


NEW ^ ^ ^ You type NEW and hit RETURN. 

The computer wipes its electronic 
memory clean, then just sits there 
patiently waiting for your next move. 


Any previous instructions that were in the computer's 
memory have been cleared or erased (or scratched, if 
you're used to that term) and it is ready to accept 
NEW instructions. 

So type in the following instruction: 


20 PRINT "THIS IS EASY* 


and then hit the RETURN key. Here are some 
Hopefully Helpful Hints: 

To get the quotation marks, press the^^*||^^ey 
and keep it down while you press 
(on most keyboards). Viy 

If you make a typing error, hit RETURN and 
start again. You'll learn a better way to make 
corrections in a few pages. 
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Now type the word RUN and then press the RETURN key. 

RUN ***** ^ ^ *''^°“ ^P® P*'®*® t'’® 

THIS IS EASY RETURN key. 


^The computer PRINTS this 




Congratulations! You have just entered or typed in a computer program 
(kind of a small program, only one line of instructions), and caused the com¬ 
puter to RUN or execute your program. 

Basically (if you'll excuse the pun), you told the computer to PRINT what 
was inside the quotation marks. Your instruction or program was this; 

20 PRINT "THIS IS EASY" 

The computer responded by typing or displaying 
THIS IS EASY 
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Let's get a little more vocabulary out of the way, along with a few of the rules 
that make up this computer language called BASIC. 

When you tell the computer to RUN a program, it starts by following or 
executing the statement or instruction with the smallest line number. The 
instruction you gave to the computer is called a PRINT statement. When 
you typed RUN and hit RETURN, the computer responded by printing the 
information between the quotation marks. What is between the quotation 
marks is called a string or string constant. 


line number 


PRINT 


PRINT! 

(all upper case) 




string of characters to be printed 




quotation marks that tell the 
computer where the string 
begins and ends 



-\ 

4 'Ihe li-ttie 

In a BASIC program, an instruction or indirect statement such as 
20 PRINT "THIS IS EASY” 

always begins with a line number., which can be any positive number from 1 
to 65529. We used 20 as the line number in our example. 

A direct statement such as NEW and RUN is not part of a program and 
doesn't begin with a line number. Since this book is for teaching you pro¬ 
gramming instructions, we will talk most about instructions or indirect 
statements, the kind with the line number. And when we just say "statement", 
we will be talking about those program statements that make up the computers' 
instructions, that is, the program. 




When the computer finishes "doing" or executing a statement, it goes on to 
the next statement in the program in numerical order. That is, the statement 
with the next larger line number is the next statement executed. When 
you RUN a program, we say the computer exect/fes or follows the instructions 
That means it does the computing, but not just with numbers. 
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Print 



First type NEW and hit RETURN. Then type in this program. 
NEW 


10 PRINT 
20 PRINT 
30 PRINT 
RUN 

WHAT - 

A - 


••WHAT 
••A* 
'•BREEZE 


" 0 


Hit RETURN at the end of each 
statement in the program, and 
also after you type RUN. 


BREEZE 


First the computer executes Line 10 and PR 1 NTs 
WHAT. 

’ Then it goes to the statement with the next higher 
line number. Line 20, and PRINTS A. After Line 20 
the computer follows the instruction at the next 
higher line number. Line 30. Don't tell me, let me 
guess what it PRINTS. 



Now you do a program like this one, using the PRINT statement to 
print one or more strings. Try whole sentences in each string. Don't 
forget the quotation marks around the string. 

NEW 



You don't have to enter or type in a program in line number order. That 
is, you don't have to enter line 10 first, then line 20, and then line 30. If 
we type in a program out of line number order, the computer doesn't 
care. It follows the line numbers, not the order they were entered or 
typed in. This makes it easy to insert more statements in a program already 
stored in the computer's memory. You may have noticed how we cleverly 
number the statements in our programs by 10's. This makes it easy to add 
more statements between the existing line numbers -- up to nine more 
statements between lines 10 and 20, for example. 
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Now type NEW, hit RETURN, and type in this program. Check the line 
numbers. 

NEW 


30 PRINT ”BA3Y" We typed line 30 first, and hit RETURN. 

10 PRINT "TO’' 

20 PRINT 4 ^ ^Then we typed lines 10 and 20. 



Now type LIST and hit RETURN. See how BASIC has rearranged the 
program statements into line number order? 



LIST 



LIST tells the computer to LIST the program that 
you have typed in and stored in its memory. 

LIST will list each statement in the program in 
line number order. You can LIST a program any 
time the computer is not RUNning a program. 

If you want to see what is in the computer's 
memory, a penny for your thoughts won't 
make it, but type LIST and hit RETURN 
and the computer tells all. 
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Let's put the PR I NT statement through a few tricks so that you get some ideas 
of what it can do and what it can be used for. First type NEW and hit 
RETURN. The computer will give you the go ahead sign ...and sit there 
waiting. 



NEV^ 

^ ^You type NEW and hit RETURN 

BASIC is ready to go to work for you 


Then type the following: 

10 PRINT 12+12 ^ You carefully 

20 PRINT 12-12 

two lines. 


More Hopefully Helpful Hints — 

(1) You must hit RETURN when you finish typing 
an indirect statement and before you type the 
next line number, 

(2) The lower case L does not substitute for the 
number one (1), and the letter O can't be 
used for a zero. 

(3) Some BASICs require a space after PRINT in 
order to understand your PRINT statement. 
Also see page 58. 


Use 

Use 


for the minus sign. 


0 

(shift ) and together for the plus sign. 

^ U 0 


©Q®®©©Q(D0OOC^ 

©OQO©©©QO©®©© 

© 000 ©© 0 ©©©©©©© 

©ooo©©©®©cip© 


When you RUN the program above, the computer should print the answers 
to the problems, like this: 


RUN 

24 

0 



You type RUN and hit RETURN. 

The computer does the computing and gives the results. 
There are 2 results, one for each line in the program. 


e Or, as they say in computerese, the computer evaluated the expressions 
(12 + 12 and 12-12) and, per instruction, PRINTed the results. 

While we're at it, here is more information on BASIC arithmetic: 



■ To tell the computer to add, use + 

■ To tell the computer to subtract, use — 

■ To tell the computer to multiply, use * 

■ To tell the computer to divide, use / 




and 



together for BASIC's multiplication sign. 


for the division sign. 


o 
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NEW 


First, erase your last program from the computer's memory by typing NEW 
(and don't forget to press RETURN). Now, type in this program and RUN it. 


If you make a typing error, just hit RETURN and start over until you get it right. 
- You type NEW and hit RETURN 


10 PRINT 7 + 5* 7-5* 7*5* 7/5"' - 

RUN - 

12 2 35 


The computer is all...ears? 

You type line 10 and hit RETURN 

You type RUN and hit RETURN 
U4 






computer does this 


From this RUN of the program you can see that commas separate the 
expressions in a PRINT statement. Note how the results you instructed 
the computer to PRINT are spread across one or more lines. If you are 
looking at a video display, it is likely that the first three results (12, 2, 35) 
are on one line, and the fourth (1.4) is on the next line under the first line. 

« #• fHi iHi 4r«^«1lir« iHl iHI^ 

If a PRINT statement contains 
more than one item, (string or 
expression), the items must be 
separated by commas or semi¬ 
colons. 

miiHi 



Try this one. Carefully . . 


^ ^ *7^ ^ *7^ TV •T» 


NEW 


Ooo 


You type NEW and hit RETURN. 


10 PRINT 1*1* 2*2* 3+3* 4+4* 5*5* 6*6* 7*7* 8*8* 9*9 
RUN 


1 

36 


4 

49 


9 

64 


16 

81 


25 


PRINT 


10 


$ 
































Your display or printer may have 16, 24, 40, 72, 80, or even 132 character 
positions across a line. Every space across the line where a letter or number 
could be typed is a character position. A character is any number, letter, 
symbol, or single space. To see how many character positions across a line 
your printer or display can handle, type X's across a line and keep cbunt. 


For later reference, record the results of your count here 


EG 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


Using a comma to separate items or expressions in a single PRINT statement tells the computer 
to space over to a print position at a certain place in the line before printing the next item. 

You say you're a stickler for details? Very well. The comma in a PRINT statement divides 
the line into three or more columns, each 14 characters wide (for most versions of BASIC). 
After seeing a comma in a PRINT statement, the computer spaces over to the beginning 
of the next one of these columns in the current line before it prints the next item. 

By the way, many versions of BASIC count the first character position as zero rather than one. 
More on that after while. Meantime, you can learn to take advantage of this "automatic" 
spacing, which is like having permanent tab settings on a typewriter, activated by the commas 
separating PRINT statement items. 

For the line below, read the numbers up and down, like this: 1 = iq ^=71 

0 1 


012345673911111111112222222222333333333344444444445555555555666666666677 
01234567390123456789012345673901234567390123456789012345678901 



Print 

Print 

Print 

Print 

Print 

Position 

Position 

Position 

Position 

Position 

One 

Two 

Three 

Four 

Five 


(last print position yhe print zones or automatic tab positions 

in the line on ygry from one system to another. Atari's 

many video displays) BASIC, for example, has print positions at 

7, 15, 23, 31, and 39, but also allows you 


to set your own. 


PRINT 

Print the values on the terminal. 

(line no.) PRINT (expression) or (list) 


Use ? instead of typing PRINT. 
See page 58 for details. 


20 PRINT 7 + 3 

30 PRINT “INSTANT BASIC” 

40 PRINT N$ 

Use ? as the short form to enter PRINT. (& in DEC BASIC Plus, ! in Northstar 
BASIC) Commas (,) separating items in a PRINT statement cause them to be 
printed or displayed across the line beginning at the next available unused 
print zone, each usually 14 or 15 characters wide. Semicolons (;) separating 
PRINT statement items cause them to be output next to each other. 


10 PRINT C,Y,Z$ 


10 PRINT X,Y,Z$ 
20 PRINT A;B;C 


A semicolon or comma at the end of a PRINT statement supresses the normal 
carriage return and line feed (cursor returns left and drops down one line). 
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Now enter (type in) the two statements below. Notice in Line 20 that we 
are using semicolons instead of commas to separate the expressions. 


NEW 


‘Clear the computer's mind to con- 
Fcentrate on your next instructions. 


10 PRINT 7+5, 7-5, 
20 PRINT 7 + 5,* 7-5; 
RUN 
12 

12 2 35 


7*5 

7*5 



PRINTed by line 10 using commas. 
RINTed by line 20 using semicolons. 


Look at the results of the RUN of this program. Notice how 
the computer PR I NTs the answer to the three problems when 
they are separated by commas (line 10) . .. 

10 PRINT 7+5, 7-5, 7*5 

as compared to the three problems separated by semicolons 
(line 20). 

20 PRINT 7+5; 7-5; 7*5 




To tell the computer to squeeze the answers or other output more closely together, 
osesemicolons instead of commas. You can use ; and , in the same PRINT statement. 
Note to Northstar BASIC users: commas and semicolons both act like semicolons. 
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mistrakes 


READ 


Do you occasionally make mistakes? We do, watch. 


10 PTINT 
RUM 


2*3 + 4» We misspell PRINT. 


?SN ERROR IN 10 


J^The computer tells use we made a mistake. A check in the 
reference manual shows us that SN ERROR AT 10 means 


a syntax mistake; it didn't compute. 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


The point is, if we had noticed that we hit T when we meant to hit R, 
could have corrected our mistake by using the back arrow key 


we 


C On most keyboards designed for use with video displays, there is a key with a 

pointing arrow on it, and each time you press it, the cursor moves one character r 
position to the left, and erases whatever was there, even a blank space. 

Some BASICS check for certain kinds of errors right after you type in a line, 
and you don't have to RUN the program before BASIC lets you know in no 
uncertain terms. 


DO IT 


Let's dear things up. 


NEW 

o 



The cursor moves backwards (to the left) and cancels 
out the entry in one character position. Then you 
type the correct letter (R) and finish typing the 
statement with no more errors. For some printers, the 
back-arrow deletes the character it points to. 


10 PT^HINT 
LIST-^ - 


10 PRINT 

RU.N 

10 


'LIST the program. 

You see? The statement is now OK. 


NEW 


Indicates one press 
of the left-arrow key. 


4^ 


l-left-arrow keystrokes. 


f 

10 PRINT "GET H-THE POIM --TJT’ 

Deletes (takes out) the H. Deletes the space and the M. 

On video displays, the cursor moves backwards a space for each press of the ^ 
"left-arrow" or backspace key. Whatever the cursor passes over while moving W 
LEFT gets erased. 



<p2ri' 


LIST 

10 PRINT ’’GET THE POINT” 


The underline key may be used just 
like the back-arrow or left-arrow keys 
on some systems, and does the same 
thing. Experiment! Nothing worse 
than a syntax error will probably 
befall you. 


More Mistr-akes on the next pige- • 






















Minor Repairs Done Here 


Let's say that you want to delete (take out) one line of a program that 
you have already entered into the computer, but you want to save the 
rest. You don't want to use NEW and start over. So what you do is 
just type the line number of the statement you want to remove, and 
then hit RETURN. First, here is another little program. 




NEW <-G 



10 PRINT 

20 PRINT 

30 PRINT 

RUN 

NOT 

VERY 

MUCH 


"NOT” 

"VERY” 

"MUCH" 


ff 


Don't forget the 
quotation marks 




Program Lines Skillfully Removed 




Now we want to take out Line 10 so that the program will only print VERY MUCH. 
But don't type NEW. Follow the instructions below. 


10 

LI 

20 

30 


PRINT "VERY" 
PRINT "MUCH" 


— Type the line number and hit RETURN. 

•Type LIST and RETURN — presto. Line 10 has disappeared 
forever... or until you re-enter it. 


RUN-* -- RUN it. 

VERY 

MUCH 


We Install New or Rebuilt Replacement Lines 



You may also replace a line in a program. Jo replace a statement, type the 
line number of the statement you wish to replace, and continue with the 
new statement. When you finish the statement and hit RETURN, your new 
new line has replaced the old statement. 


more 






















LIST 



20 PRINT "VERY**^ - ►We want to replace this line. 

30 PRINT "MUCH" (These two statements are still in the 

computer's memory.) 


20 PRINT 
LIST-* - 


"TOO" 


Type this line with the line number for the 
statement you want replaced. 


LIST to see the modified program. 



Let's say you are typing along, ENTERING a statement and . .. suddenly . . . you 
notice that you have started the line with the line number of another statement, one 
you entered (typed in) earlier. If you just press RETURN to start over, you will 
replace that earlier statement with the line you are typing in now, since the second one 
will replace the earlier statement with the same line number. If you notice this in time 
(before you press RETURN), you can cancel the line you are working on, using 
a combination SHIFT and P key (SHIFT/P). (Exceptions are noted below.) 



DO IT 


For video displays, it is very easy to just use the back-arrow key to erase all the 
characters in the line back to and including the mistaken or duplicated line number. On 
some keyboards, holding down the back-arrow key will cause the cursor to move right 
along (to the left, of course), erasing each character in the line that it passes over, until 
it gets all the way back to the left edge of the display screen. On other systems, holding 
the back-arrow or left-arrow key down while also pressing a REPEAT or REPT key will 
cause this "clean sweep" of the statement line all the way back to the beginning. 
Experiment! 



10 PRINT "GET THE 0IUB9 We got frustrated and decided to take out the entire line. 

On a video display, the cursor drops down one line, and 
returns to the left side of the screen, just as if 
you had pressed RETURN. A printer does a line feed 
(paper goes up one line) and a carriage return 
(print head goes back to left side of the paper). 


©O®(])©®O0.0OOOO 
@©©000000©® 
©0000000000 
©00©0©©®000f 





Use (SHIFT I and 





^uwvwvvuwvwvwvwvs/wwvwvww 

For Radio Shack, Northstar, others: SHIFT/P 

For Atari: SHIFT/DELETE 

For Apple: CONTROL/X 

For DEC BASIC Plus: SHIFT/X 
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direct mode 




Most versions of BASIC these days have a special 
direct mode or immediate execution mode. Among 
other things, this allows you to use a PRINT 
statement to calculate and PRINT the results for 
you. You may wish to use this direct or immediate 
mode to experiment with BASIC arithmetic. Instead 
of starting the line with a line number, you directly 
type 



PRINT 3*5> 3 + 5> 3“5.» 3/5 



i6 


You can correct mistakes in direct mode just as you would for a 
regular program statement. 

Later you will pick up some other things you can do in direct 
or immediate mode. Meanwhile, you may enter one-line instructions 
without a line number and get the output at the push of a button 
(namely the RETURN key). 





Here are some little programs to give you more practice with the PRINT 
statement and BASIC arithmetic. Try them out. (Bet you thought you 
were past basic arithmetic ... .) 

NEW 


10 PRINT ”8 ♦ 2 *•*; 8+2 -G This one is tricky! 

RUN 

8 + 2 = 10 


10 PRINT ”8 + 2 a’*; 

wBh ee w ^ 

This is a string enclosed 
by quotation marks. The 
computer does not evaluate 
the arithmetic instructions 
contained in a string. 


8^-2 




without ff 

But the computer does 
evaluate or compute 
this because it isn't 
enclosed by quotes and 
therefore is not a string. 
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The semicolon says to print the parts of 
the PRINT statement close together. 
















How BASIC Figures 14. 

Enter and RUN the following programs. Or, if you'd rather, use 
direct mode to do each line or each arithmetic problem. 

NEW 

{^Didja or dintcha? 

10 PRINT 2 * 3 +^* 2*3+4*5.» 2*3/4 
20 PRINT 2*<3+4)> <2+3)*(4+5)/ (2+3)/<4+5) 
RUN 



10 

14 


NEW 


26 

45 


1.5 

.555556 


10 PRINT 
20 PRINT 
RUN 


2 * 2 * 2 * 2*2 

2t5 


©00000000©(D0© 
©(D000©00©©00©© 
0OOOOO®©OO(D© 


c 


Here is where 
the up arrow 
is located on 
most keyboards. 



32 2x2x2x2x2isthe same as 2° 

32 (two to the fifth power). Note the use 
of the up arrow in BASIC to com¬ 
pute the power of a number. 

The up arrow on your display or printer may look more like this: 

BASIC Plus uses ** (2 asterisks) instead of up arrow. 


I SM'fT ) 

ira likp 


THE RULES 


1. BASIC evaluates an expression (does the arithmetic) by starting 
at the left side of the expression and working towards the right... 




2. ...doing all the power (f) computations first.. .t 

3. ...then starting at the left again and working right, doing all the 
multiplications (*) and divisions If)... 

4. ...then starting once again at the left, BASIC works through the 
expression doing all the additions (+) and subtractions (—). 

5. However, BASIC evaluates the expressions ms/c/e of parentheses 
( ) first, following the same Rules of Precedence (who comes first) 
stated ini to 4 above. 

6. If there are pairs of parentheses witMn parentheses, the evaluation 
or computing is done inside the inner-most set of parentheses first, 
then the computing is done inside the next set of parentheses, and 
so on and so on. 

7. But don't forget; each left parenthesis ( must have a matching 
right parenthesis ), and vice versa, or BASIC will give you an error 
message when you try to RUN the program. 

t Of course you can control the order in which power ( t) or 
any other calculation is done by using parentheses — see 5, 

6 and 7 above. Join the Parentheses Power movement! 
























CHAPTER 1 PROBLEMS 

1. Write a BASIC program that will 

(a) print your name, 

(b) print your street address, 

(c) print your city, state and zip code, 

on three consecutive lines. 

2. Rewrite Program 1 in one statement to write 
across your I/O device (terminal). 



3. 

4. 

5. 

6 . 


7. 


To erase the program in memory, type_and press_ 

To see the program currently in your computer's memory, type _ 
and press_ 

In entering a program, you type PRINY when you meant to type 

PRINT. To correct the mistake,_ 

then type T. 


Use direct mode to balance your checkbook containing these figures: 


Beginning balance: 172.16 

Checks: 13.50, 19.00, 3.25, 10.00, 114.14 

Deposits: 87.57 

Write a program to compute the average height of the 10 children who came 
to Danny's birthday party. Their individual heights are (in inches): 40, 50, 46, 
48, 49, 45, 52, 41, 44, 45. In one line numbered PRINT statement, force the 
computer to add up the heights before doing the division. 



Use this space to write out your programs before you RUN them. 
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The answers or solutions are in the back of the book (unless your teacher 
has razored them out...). 
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LITTLE BOXES 



Imagine that down inside the computer there 
are a bunch of little boxes with two com¬ 
partments, like this: The left side of each 
box can hold a label called a variable. The 
right side of each box can hold a number, 
called the value of the variable. 



^9 
















8o. 




•“S 








A 

32 

B 

6.5 

X 

3 

P 

-10 







tsl 

il 

g] 


Here we have some of the boxes with the variable labels 
filled in, and with values ass/^A7er/ to the variables. We 
have LET variable A have the value 32. That means that 
the value 32 is assigned to the label or variable A, or 
simply A = 32. Variable B \s assigned the value 6.5, or 
B = 6.5. Likewise, X = 3 and P = —10 (minus ten). 



Here is a way to get the computer 
to fill in those little boxes, that is, 
to assign values to variables. 


NEW 


10 

LET 

A=32 

20 

LET 

B=6.5 

30 

LET 

X»3 

40 

LET 

P»-10 

50 

PRINT 

RUN 




After you RUN the program, the boxes 
look like this: 




32 


6.5 


-10 


20 




A 

32 

B 

6.5 

X 

3 

p 

-10 


m 


50 PRINT A> B.» X* P This statement does/70f 
tell the computer to print the letters A, B, X and P, 
because they are not strings enclosed by quotation 
marks. Instead, this statement tells the computer to 
PRINT the values assigned to these variables. 



H 










































i] 

gl 


gl 




g] 


gl 


m 


n 


m 


n 


gi 

m 

gi 


m 

n 

m 

g] 

m 

gl 

m 

m 

gl 


gl 

gl 

m 

gi 

gl 

m 


gl 

gl 

gi 

gl 





What?? Two A's being assigned different values by lines 10 and 30? If you 
look closely, you'll see that the value assigned in Line 30 is the value (15) 
used in Line 40 to evaluate (do the arithmetic) and print the result. BASIC 
always uses the last value assigned to a variable. I n effect, any new value 
assigned to a variable, replaces the former value in the box for the same 
variable. The old value is lost forever, unless a new assignment is made. 


Here is a trace of the program as the computer goes through the program in 
line number order. A trace traces the path the computer uses when RUNning 
the program, showing the value of the variables after each statement is 
executed by the computer. The computer, in case you haven't noticed, is a 
fast worker, and starts to print the results of our program almost as soon as 
you type RUN and hit RETURN. 

STATEMENTS VARIABLES & VALUES EXPLANATION 


10 

20 

30 

40 

RUN 

5 


LET A»5 

LET B«10 

LET A»15 

PRINT A-B 





The value of A after the computer 
executes (follows the instruction) 
in Line 10. 

The value of A is still 5 after the 
computer executes Line 20 and assigns 
the value 10 to variable B. 


The old value of A is replaced by the 
new value 15 after the computer 
executes Line 30. The value of B 
hasn't changed. 


The values of the variables don't 
change as the computer executes 
Line 40. The values in A and B 
are used by the computer to 
evaluate A — B and PRINT the 
result 


Your system may have a utility program that automatically traces the path your computer 
follows when executing a program, with line numbers as well as values of variables displayed 
as the RUN procedes. This is handy not only for understanding the workings of a program 
that works, but also for seeing where a program that doesn't work as expected is going wrong. 
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direct mode revisited 



Here's a sharp programmers tip. After you have RUN a program and the com¬ 
puter has finished executing it, the values of all the variables in the program 
stay in the boxes. That means you can find out what were the last values for 
the variables the computer was using when it finished RUNning the program 
(what values were left in the boxes at the end of the RUN). You find out 
using direct mode. Since direct mode does not use line numbers, it doesn't 
affect the program you have entered in the computer's memory. 



Use direct mode to find out what values are still in the computer's memory. 
(Do/7'f type NEW!) 

PRINT A/B 
15 10 


Using the trace technique and the direct mode, you may be able to discover 
bugs in your program. But don't get out the bug spray. Bug is computer 
jargon for some mistake in your program. It could be a typing error, an 
error in using BASIC, or an error in your understanding of how to make 
the computer do your thing. The motto is, "Keep On Debugging," which 
will soon be released as a disco single. 




LET 

Assigns a value to a numeric variable or a string variable. LET is optional, 
(line no.) LET (variable) = (expression) 

10 LETX = 3 
20 LET Z = X*5 
30 N$ = “NAME” 

DEC BASIC Plus only 

10 LET X,Y,Z = 33 — multiple LET, all values = 33 


INPUT INPUT is explained 

Requests data to assign to one or more variables. starting on page 26. 

INPUT (variable name(s)) 

INPUT (“prompt string”) ; (variable name(s)) 

10 INPUT X 
20 INPUT X,Y,Z 

30 INPUT “WHAT IS YOUR NAME” ; N$ 
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As you can see from that last example, a variable can only have one value at 
a time, and the jast value assigned will be the one recorded in the little box 
for that variable. The previous value is replaced by the latest one assigned, 
and any previous value of that variable is gone forever. 



Look at this trace to see exactly what happens when the program is RUN. 


STATEMENTS VARIABLES & VALUES EXPLANATION 


10 LET F=6 

20 LET G»8 

30 LET H»F^G 

PRIMT H 



RUN 

48 


All of the above happens after 
you type RUN and before H is 
printed. Fast, huh? 


Value assigned to F 


Value assigned to G. 


Value assigned to H, using the values of 
F and G for the computations (doing 
the arithmetic). 


Computer prints the value of H. Note 
that all values are still in their boxes. 


Some versions of BASIC have a TRACE 
instruction that shows you the line numbers 
of the statements as they are executed, and 
the order they are executed, during a RUN, 
even if there are no PRINT statements (such 
as lines 10, 20, and 30 in this program). This 
can be helpful in debugging a program. 


crz} 


[Ul 

liU 





□ 
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More practice? O.K. 


NEW 


10 LET A=2 
20 LET B*3 
30 LET C»4 
40 LET D*5 

50 PRINT A+B+C+D* A*B*C*D^ 
RUN 

U 120 



A*(B+C)^ CA+B)/CC+D) 


U 


.555556 


Now, you do a trace for this program. 



STATEMENTS 

10 LET A«2 

20 LET B=3 


VARIABLES & VALUES EXPLANATION 


A 


A 


6 




30 LET C=4 


40 LET D*5 


50 PRINT A+B+C+D> ETC 



Did you remember? The values of variables don't 
change when a PRINT statement is executed, even 
if the values are used in computations (doing arithe- 
metic problems). 
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Bight Bend. 






Hitch. 




However, there is more to variables than just putting numbers in boxes. 
Instead of a number, the value of a variable can be a string. So that 
BASIC knows that we are dealing with a string variable, the label or 
variable name ends with a $, for example, A$ in a LET statement. The 
string that is being assigned to the string variable is enclosed by 
quotation marks, just as in a PRINT statement. 


if i‘« 

^ -Hli 5 

yy.ujnKOfiC' 

\na^<X be a 


NEV 


-e> 

c$ 

VERY 


E$ 

GOOD 


20 LET E$=”G00D*’C::^ c 
30 PRINT C$; C$; E$ 

RUN 

VERYVERYGOOD 

Well, we could try it another way. Without typing NEW, replace Line 30 
with a new Line 30, using commas where the semicolons were. 

30 PRINT Z%» C$> E$ 

RUN 

VERY VERY GOOD 

Hmmmm, still not too good. Replace Lines 10 and 30 like this 




10 LET C$=’'VERY 

30 PRINT C$; C$ 

LIST ,t 

semicolons again 

10 LET C$="VERY " 

20 LET E$*"G00D" 

30 PRINT CSi C$; E$ 

RUN 

VERY VERY GOOD 



see the extra space 



Did you enter (type in) this program exactly, and still got an error message when you tried to RUN it? 
If not, go to the next page and collect $200. For Atari and some other non-Microsoft BASlCs, you 
must always inform the computer of two things at the beginning of the program: 

(1) that you will be using strings assigned to string variables in the program, and 

(2) the maximum number of characters that a specific string variable can be assigned. (Using less than 
the maximum number of characters you have specified is always OK.) 

To do this, use the DIM (forDIMension) statement, like this one for the program above. The number 
in parentheses gives the maximum string length for that specific string variable's assignments. 


Only if you got an error message before, 

5 DIM C$(5)y E<(5> ^ add this line to the programs above and RUN again. 


Note that more than one string variable can be DIMensioned in the same DIM statement, with each 
one separated by (what else?) a comma. See also pages 26 to 31, and 142. Since this procedure is not 
for most BASICS, those of you who need it will be expected to supply your own DIM statement at the 
beginning of all programs using string variables. (Excuse the inconvenience.) And note this: If you 
attempt to assign strings longer than the DIMensioned character count to a string variable, the "extra" 
characters are cut off or truncated to the allowable DIMensioned character count for that string 
variable. 



5 DIM A*(5) 
10 LET A* = 
20 PRINT A* 
RUN 

12345 .4- 


_ _ DIMensioned maximum length for A$'s string. 

** 123456789” /y g character string to be assigned to A$. 

Oops! 6789 was left off of the string we tried to assign to A$, 

___► because the string had 4 too many characters in it. 

But the truncated (cut off) string "12345" was assigned to A$. 
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L 

DO 

IT 

M . 

■if- 


•'U y 



NEW 

10 

INPUT 

c$ 

20 

INPUT 

ES 

30 

6 RUN 

PRINT 

C$ 





MPGIIJ 


Another way of putting variable labels in the boxes and assigning values to 
them is by using the INPUT statement. Try this next little program using 
the INPUT statement. 


^ CS« ES 


le INPUT C$ 


20 INPUT E$ 


i 


The computer sits and waits for you to 
give it an INPUT, that is, a string to 
assign to C$. 

See that question mark appear? The INPUT statement causes the question 
mark to be typed by the computer. The computer is waiting for an INPUT, 
that is, something to put in the box it has marked C$. You must respond 
by typing VERY (or any other string) and then press RETURN. 


^This INPUT statement causes the first ? 
printed by the computer when you RUN 
program. 

^This INPUT statement causes the second 
_ 


to be 
the 


^—/ 


(This is the same RUN continued.) 

We typed VERY and hit RETURN. 


►RUN 
? VERY 


c$ 


The computer has made C$ = VERY. 

Then the INPUT statement in Line 20 
causes the second ? to be printed, and 
again the computer waits for an INPUT 
to assign to E$. 

Another question mark? Yes, now Line 20 of the program tells the computer 
to ask for a string for E$, and it awaits your fancy. Type GOOD (or be 
original) and hit RETURN. 


VERY 


(Still the same RUN, folks.) 


► RUN 
? VERY 
? GOOD 
VERY 


E$ GOOD 


_We typed GOOD and hit RETURN. 
VERY GOOD 


The computer executes Line 30 and 
PRINTS this. 


And old reliable prints the string labeled C$ twice, and the string corresponding 
to E$ once, just as the PRINT statement (Line 30) tells it to. 

If we want spaces before or after the string we are entering after an INPUT 
question mark, we just enter the string with quotation marks around it. We 
could enter the word VERY enclosed by quotation marks and include a 
space in the string. First, change line 30 so that the string variables are 
separated by semicoldns instead of commas, then RUN the program again. 

30 PRINT c$; c$; E$ 
run 

-Hi ' I if»L 

^ iNPurr 


? ’’VERY " 

? GOOD 

VERY VERY GOOD 
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It’s always 
right on time! 


But that question mark isn't too informative by itself. You don't know what 
to respond to an INPUT question mark unless you know what the program 
is about. So here is how you provide a prompt or cue as to what the program 
needs for an INPUT. 



NEW 

10 INPUT 
20 PRINT 


••WHAT 
N$; •• 


IS YOUR 
IS YOUR 



Note the semicolon 


NAME-; NS 
NAME. - 



Note the space 


Note the semicolon 


Old Atari BASIC uses the "old 
fashioned" method for INPUT 
prompts shown on page 30. 


Tell the computer your name (type it in, silly, and don't forget RETURN) 
when it asks you. 


^It asks J^You respond 

WHAT IS YOUR NAME? JERALD R. BROWN 
JERALD R. BROWN IS YOUR NAME. 

Don't worry if the question mark 
was omitted by your version of 
BASIC (see page 30). 


Notice that you must put the prompt string 

"WHAT IS YOUR NAME" 

in quotation marks, and that between the prompt string and INPUT 
variable you must use a semicolon (;). 



N$ 


JERALD R. BROWN 


Your INPUT string is 
assigned to N$. 



10 INPUT 


"WHAT IS YOUR NAME"; N$ 

I 


The INPUT variable. 

The prompt string 




Did N$ print less characters than you entered for your first and last names? 
For some versions of BASIC, you are automatically allowed to assign strings 
with 10 characters in them to string variables. But for longer strings (over 10 
characters), you must inform the computer of the maximum length (number 
of characters) that each specific string variable can be assigned. To do this, 
go directly to page 25 and learn how to use the DIM statement, and return 
the $200. 


more to come.... 











F 


1 / 



We typed a comma instead of a semicolon after the prompt string, and here's 
what happened when our computer tried to RUN the program. 


10 INPUT "WHAT IS YOUR NAME"/ N$ 
RUN A 


?SN ERROR IN 10 




However, some versions of BASIC do use a comma after the prompt and 
before the INPUT variable. Northstar BASIC uses a comma instead of a 
semicolon before the INPUT variable, and if you type in a semicolon, it 
will be changed to a comma automatically (the same as in PRINT statements) 
when the program is LISTed. T. I. BASIC uses a colon after the prompt 
string's closing quote where most BASICS use the semicolon. 

Also, if you'll check Line 20 of our program, you'll notice we use a 
semicolon in the PRINT statement so that all the parts of the PRINT 
statement would be squeezed close together 


Well, this version of BASIC didn't like that 
at all. It's that nasty Syntax Error message. 
When you get a Syntax Error message, it 
means that either you typed the right thing 
incorrectly, or else you typed the wrong 
thing altogether! 


/ 


20 PRINT N$i "IS YOUR NAME." 

(Want to try it with a comma to see the difference?) 

What if you make an error when entering a value or string requested by an 
INPUT statement? You can correct your entry before you hit RETURN, just 
as you would for a mistake in typing in a program statement. 




-Hireasl cir)rrfi.\ 




Now, without typing NEW, add lines 30 and 40 
to the program. Then RUN it and have a short 
conversation with your computerl 



We used a numeric variable since the 
program is asking for a number. But 
it would have been all right to use a 
string variable since the number will 
not be used in any calculations. 


30 INPUT "HOW OLD ARE YOU"; A 

40 PRINT N$; "/ YOU ARE"; A; "YEARS OLD." 




Note the comma and space inside of the quotation marks. 

RUN 

WHAT IS YOUR NAME? JACK-v-._ 

JACK IS YOUR NAME. ~~**—*—~— S omeone typed their name 

HOW OLD ARE YOU? 24---—^ ^ and age after the question 

JACK/ YOU ARE 24 YEARS OLD. 


marks. 
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Now LIST the program if you want to see it all together. 

LIST 

10 INPUT "WHAT IS YOUR NAME"; N$ 

20 PRINT NS; "IS YOUR NAME." 

30 INPUT "HOW OLD ARE YOU"; A 

40 PRINT N$; ", YOU ARE"; Ai "YEARS OLD." 



Let us digress for just a moment here to discuss the last PRINT statement (line 40) in this 
program. Various versions of BASIC print numbers in slightly different ways. A leading 
space (where a plus sign could go) may be included for all positive values printed or 
displayed by a PRINT statement on your computer system. Try this little program: 



NEW 

10 ? 
20 ? 
RUN 


20 Y's.^^ 

.. Y YYY Y YY Y Y Y Y YY YY Y Y YY Y •* 
1;253;4;5;6 


tJ^estius l;2;3;4 


If your RUN looks like this: YYYYYYYYYYYYYYYYYYYY 

1 2 3 4 5 6 


IBM PC BASIC 
is an example. 


then your machine prints positive values with leading AND trailing spaces. 


If your RUN looks like this: YYYYYYYYYYYYYYYYYYYY 

1 2 3 4 5 6 


TRS-80 (Radio Shack) 
BASIC is an example. 


then your BASIC prints positive values with a leading space, but no trailing space. 



If your RUN looks like this: YYYYYYYYYYYYYYYYYYYY Applesoft basic 

123456 “ 

then guess what. No leading or trailing spaces. 

Now you fix the last PRINT statement in the "name and age" program according to how 
your version of BASIC prints or displays positive values. If only leading spaces are 
included, and the RUN looked like this: 

BILL, YOU ARE 22YEARS OLD. 

then replace line 40 like this: 

40 PRINT N*; ”, YOU ARE"; A; '^EARS OLD." 

Space 

If neither leading nor trailing spaces are included, your RUN looked like this: 

BILL, YOU ARE22YEARS OLD. 
and you should use this version of line 40: 


40 PRINT N*; 
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READ 


Here's another way to enter a program that does pretty much the same thing. 
This is the old-fashioned way, as used in early versions of BASIC that did not^ 
allow a prompt string after INPUT. But the idea is this: sometimes you may 
have more instructions (for the person using your program) about what to 
enter for an INPUT statement than will fit in the prompt string, so you use 
PRINT statements, idefore the INPUT statement, to give complete and detailed 
instructions as to what should be entered. 


NEW 






IS YOUR 


YOUR 

ARE 


10 PRINT 
20 INPUT 
30 PRINT 
40 PRINT 
50 INPUT 
60 PRINT 
RUN 

WHAT IS YOUR NAME? 

BILL IS YOUR NAME. 

HOW OLD ARE YOU? 22 - 

BILL^ YOU ARE 22 YEARS 


"WHAT 
NS 

N$; " IS 
"HOW OLD 
A 

N$; YOU 


NAME 


Note these semicolons, which tell the 
computer to stay on the same line 
when it has finished PRINTing what 
it was told to. Then the INPUT 
statement supplies the question mark. 


a; "YEARS OLD. 


BILL- 


OLD. 


N$ 

BILL 

A 

22 


If your BASIC doesn’t print numbers 
(numeric values) with leading and 
trailing spaces, then include spaces 
inside the quotation marks. 


A (0f ? 


If you use a prompt string in an INPUT statement, BASIC may or may not print a 
question mark automatically after the prompt string when the INPUT statement is 
executed. Try this one line program to find out. 




NEW 

10 INPUT “ANY QUESTIONS"; Q* 


RUN 

ANY QUESTIONS?! 


“Did it RUN like this . . . 


RUN 

ANY QUESTIONS 


0 


^ . or like this? 


If the INPUT question mark \s suppressed (not printed) when there is a prompt string 
included in the INPUT statement, then you can include the question mark (or any 
other punctuation, or none at all) inside the prompt string quotation marks, as in these 
two examples: new 

lO INPUT "ANY QUESTIONS?"; Q* 

RUN 

ANY QUESTIONS? 

NEW 

lO INPUT "ENTER YOUR QUESTIONS"; Q« 

RUN 

ENTER YOUR QUESTIONS 






Bt . - 
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THE TRIALS AND TRIBULATIONS OF MULTIPLE INPUT VARIABLES AND NULL STRINGS 



NEW 


10 

PRINT 

20 

INPUT 

30 

PRINT 

RUN 



"ENTER YOUR NAME, LAST NAME FIRST," 
"SEPARATED BY A COMMA! "; LS, F* Commas separate 
cr* I* ^—multiple INPUT variables 


ENTER YOUR NAME, LAST NAME FIRST, 


1 I 

I j < 


i Our two entries, one for 

SpSrat'ed'bV^”^'^'*’ 

but not including 
the comma. 




2nd RUN 


It is very hard 
to see null strings! 


RUN 

ENTER YOUR NAME, LAST 
SEPARATED BY A COMMA! 


NAME FIRST, 


o 


We hit RETURN without making 
an entry for L$. 


The computer still expects an entry 
for the 2nd INPUT variable, F$, 
but we just hit RETURN again. 



For the second RUN, we hit RETURN/Vrsfeac/making an entry, for both L$ and F$. 
The computer interprets each of these "non-entries" as instructions to assign an empty 
or null string, that is, a string with no or zero characters in it, as if L$ = and F$ = 
The "nothing" between each set of two quotation marks is the null string. 

Not all versions of BASIC react as we have shown. For example, Microsoft BASIC 80 
will give you the error message 


? REDO FROM START 

if you attempt to enter for an INPUT statement: 

(1) too few values or strings. 

(2) too many values or strings. 

(3) the wrong type of data, that is, a string where the INPUT statement expected a 
numeric value for a numeric variable. 

In other versions of BASIC, hitting RETURN without making an entry can (mistakenly!) 
assign a zero if the variable was a numeric one, or a null string for a string variable. Later 
you can learn how to "trap" these and other kinds of INPUT entry errors. 



j rm mtmn 3 




NEW 

lO INPUT "HOW OLD ARE YOU?";A* 

20 PRINT "YOU ARE";A*;"YEARS OLD." 

'-^— - No spaces inside the quotes. 

HOW OLD ARE YOU? \\\ We hit RETURN without making an entry. 

YOU AREYEARS OLD. 


The null string 
assigned to A$ 
doesn't take up 
much space, does it? 
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It Doesn’t Compute! 



Numbers can be assigned to string variables, but BASIC then sees them as 
words, and not as numeric values that can be used in calculations. To wit: 


NEW '^IlDidja or dintcha? 


10 

20 

30 

40 

50 


INPUT "HOW OLD ARE YOU?";A* 

PRINT "YOU ARE ";A*;" YEARS OLD." 

INPUT "WHAT YEAR IS THIS?";Y 

"IF THIS IS ";Y;". THEN YOU WERE BORN ABOUT" 


PRINT 
PRINT 

Subtract 
the numbers. 


V ’/ 

Spaces inside 
the quotes for 
lines 20 and 40. 


* 1st RUN 
RUN 

HOW OLD ARE Y0U7FIFTY 


YOU ARE FIFTY YEARS OLD. 

WHAT YEAR IS THIS? 1983 -- 

IF THIS IS 1983 THEN YOU WERE BORN ABOUT 


A$ 

FIFTY 

Y 

1983 


?TYPE MISMATCH ERROR IN 50 

2nd RUN 
RUN 

HOW OLD ARE Y0U?50 
YOU ARE 50 YEARS OLD. 

WHAT YEAR IS THIS?1983 
IF THIS IS 1983 THEN YOU 




(Your error message 
may be different.) 
BASIC will not subtract 
strings from values, 
or vice versa. 



WERE BORN ABOUT 


A$ 

50 

Y 

1983 


?TYPE MISMATCH ERROR IN 50 


3rd RUN 
RUN 

HOW OLD ARE YOU? 

YOU ARE YEARS OLD. 
WHAT YEAR IS THIS71983 


BASIC refuses to perform 
arithmetic with numbers 
assigned to string variables. 


We hit RETURN without making 
an entry. Many BASICs 
interpret this as instructions 
to assign a null string 
to the INPUT string variable. 


IF THIS IS 1983 THEN YOU WERE BORN ABOUT 


4 


The null string 
assigned to A$. 


A$ 


Y 

1983 


7TYPE MISMATCH ERROR IN 50 


Now modify the program by reentering lines 10, 20, and 50, or use your 
program line editor (if you've learned how) to change string variable A$ 
to numeric variable A in lines 10, 20, and 50. 


Change A$ to A- 
Change A$ to A-' 

Change A$ to A- 
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lO 

INPUT 

"HOW OLD 

ARE 

YOU?";A 

20 

PRINT 

"YOU ARE 

>1 • /v« 
Si Mp 

" YEARS OLD." 

30 

INPUT 

"WHAT YEAR IS 

THIS?";Y 

40 

PRINT 

"IF THIS 

IS " 

;Y;" THEN YOU 

50 

PRINT 

Y - A 




Subtract 
the numbers. 


more to come... 






















ii's a mathematical LUhiai 



1st RUN> 


OK here. 


RUN 

HOW OLD ARE Y0U772 -- 

YOU ARE 72 YEARS OLD. 

WHAT YEAR IS THIS? 1983 -- 

IF THIS IS 1983 THEN YOU WERE BORN ABOUT 
1911 



_ 


Z] 

1 1983 


2nd RUN > 


RUN 

HOW OLD ARE Y0U7TEN 

7REENTER -- 

HOW OLD ARE YOU? 10 
YOU ARE 10 YEARS OLD. 
WHAT YEAR IS THIS? 1983 
IF THIS IS 1983 THEN YOU 
1973 


This BASIC will not 
-assign the string TEN 
to numeric variable A, 
_but it does give you 
another chance. 


WERE BORN ABOUT 


A 

10 



1 1983 


DOUBLE or ?? 


We don't recommend using more than one INPUT variable per iNPUT statement, but there are always 
exceptions. In the following program, both height (inches) and weight (pounds) are entered in response 
to one INPUT statement for assignment to two variables. 



2nd RUN 


o 


3rd RUN 


o 


NEW 


10 

PRINT 

20 

INPUT 

30 

PRINT 

40 

PRINT 

RUN 



"ENTER YOUR HEIGHT (INCHES) AND WEIGHT 
"SEPARATED BY A COMMA:";H,W 
"HEIGHT: ";H * 2.54;" CENTIMETERS" 
"WEIGHT: “;W * .4536;" KILOGRAMS" 


(LBS)" 


ENTER YOUR HEIGHT (INCHES) AND WEIGHT 

SEPARATED BY A COMMA: 69, 145 -- _ 

HEIGHT: 175.26 CENTIMETERS 
WEIGHT: 65.772 KILOGRAMS 


(LBS) 

— We followed directions. 


RUN 

ENTER YOUR HEIGHT (INCHES) 
SEPARATED BY A COMMA: 69-— 
77145 ----— _ 


AND WEIGHT (LBS) 


HEIGHT: 175.26 CENTIMETERS 
WEIGHT: 65.772 KILOGRAMS 


- We didn't follow directions, 

_ but the patient computer 
displays double question marks 
and waits for the 2nd entry. 


RUN 

ENTER YOUR HEIGHT (INCHES) AND WEIGHT (LBS) 

SEPARATED BY A COMMA:.. - We stubbornly refused 

7REENTER to make an entry, and 

SEPARATED BY A COMMA:- - just kept hitting RETURN. 

7REENTER --- Our BASIC refuses to continue 

SEPARATED BY A COMMA: without our INPUT entry, 

being equally stubborn .. . 
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One Line at a Time 

An alternate for the INPUT statement in some versions of BASIC is the LINE INPUT or 
LINPUT statement. Only onesfrwg'variable may follow the LINE INPUT statement for 
assigning one string (such as a line of text—get it? LINE INPUT?) to the string variable, 
but (get this!) you can include commas and other punctuation in the text to be assigned 
to the string variable. (There is no LINE INPUT in Applesoft or PET BASICS.) 


NEW 



10 LINE INPUT "ENTER YOUR NAME, LAST NAME FIRST*";N« 
20 PRINT N* 

RUN 

ENTER YOUR NAME, LAST NAME FIRST* BROWN, JERALD R. 
BROWjvi, JERALD R. - 




The N$ string, 
comma and all, 
courtesy of 
line 20. 



One entry (some fool's name) 
with comma included. 


LINE INPUT "suppresses" the usual INPUT question mark so that it doesn't appear when 
the LINE INPUT statement is executed. If you wish a question mark to appear after the 
LINE INPUT prompt string, you must include it inside the prompt string quotation marks. 
Of course, you could use a hyphen or colon instead of the question mark, or use none of 
the above. Please experiment! 


X 



Atari and Northstar BASICs and a few others, only allow one string to be entered at a 
time for INPUT string variable assignment. This means that for multiple INPUT variables, 
a separate entry is needed for each string variable, and each entry is followed by R ETU RN. 
The computer keeps responding with double question marks (??) until all string variables 
for that INPUT statement have received assignments. For these versions of BASIC, 
commas that are typed in as part of a string entry are included as a string character, that 
is, as part of the string itself, making these INPUT statements something like LINE 
INPUT. Since commas don't separate string entries, for multiple INPUT string variables 
a RETURN is needed after each entry. Avoid confusion by using only one variable for 
every INPUT statement. 































INPUT TEST PAGE 


Your own 
tests go 




OK 

ERROR 

COMMENT 

COM,MA 

V 

Q 



SEMI;COLON 

or 



CO: LON 

nK 



PER.IOD 

/S K 



EXICLAIM! 

n K 



A'POS'TRO'PHY 

0 fc 



AMP&ER&SAND 

OtC 



NUM#BER 

0 K 



SLA/SH 

6K 



AST*R*SK 

OK 



QU''OT"ES 




"QUOTES" 




"QU"OT"ES" 




"COM,MA" 




"SEMI;COLON" 




"CO: LON" 




"PER.IOD" 




"EXICLAIM!" 




"A'POS'TRO'PHY" 




"AMP&ER&SAND" 




"NUM#BER" 




"SLA/SH" 




"AST*R*SK" 




"NOW," HE SAID. 




SHE ASKED, "WHY?" 





































llabt pou experimenteti tobap? 

Try out all of these test strings, which include punctuation marks as part of a 
string of letters. RUN the test program for each string. Take pen in hand and 
use the chart to keep a record of the results, for your own future reference. 
Note that the second half of the list is the same as the first half, but with 
quotation marks enclosing the outside of the test strings. If your BASIC 
doesn't have LINE INPUT, then substitute INPUT or LINPUT in line 10. 


NEW 

DIM if needed. 

10 LINE INPUT "ENTER TEST STRING: T* 

20 PRINT T* 

RUN 

ENTER TEST STRING: 
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READ and DATA'-They 

You can get the computer to fill in those little boxes, that is, assign values to 
variables, in yet a third way. First, we used LET. Then we used INPUT. 

Now we use READ and DATA. This method uses the combination of two 
BASIC statements that always work together. They're real pals, the READ 
statement and DATA statement. Actually, they can be more like a gang, 
with READ as the leader, and lots of DATA followers. 

Try any version of the program below to see how the two statements work 
together to assign values or strings to variables. To make it simple at first, 
we just use one data item, either a value or a string, in the DATA statement. 




if May we direct your attention to the facts that 
f strings can be numbers, for example, A$ can f 
\ be assigned "58" as its string {A$ - "58"). J 
^ But then A$ can "t be used like a numeric 
variable, for instance, in arithmetic compute^ 
tions. Assigning 58 to a string variable makes « 
58 into string characters, not a representation | 
of numeric value. BASIC will not recognize | 
the string "58" as the value 58. More on this/ 
in Chapter 8. a 


STRING VARIABLES 


Notice that the computer sees the two words 
FIFTY EIGHT as one string, including the 
space between the words. 


10 READ AS 
20 PRINT AS 
30 DATA FIFTY EIGHT 
RUN 

FIFTY EIGHT 


10 DATA FIFTY EIGHT 
20 READ AS 
30 PRINT AS 
RUN 

FIFTY EIGHT 


10 READ AS 

20 DATA FIFTY EIGHT 

30 PRINT AS 

RUN 

FIFTY EIGHT 


10 READ AS 
20 DATA 58 
30 PRINT AS 
RUN 
58 
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work together to assign 

values and strings to variables. 





READ 


As you can see from these examples, the READ statement will assign the 
value or string in the DATA statement to its variable (the READ variable). 
No matter where the DATA statement is placed in the program (first, last, 
or in the middle), the computer assigns the first item in the first DATA 
statement to the first READ variable. 



Looking at the last example, notice that the items in a DATA statement are 
separated by commas, but there is no comma after the last item. 



Users of North star-style 
BASIC will have to enclose 
all strings in DATA statements 
in quotation marks, as well as 
separate the items with commas. 


Note commas 


30 DATA GREAT/ THIS/ AIN’T 


Note lack of comma 


Note that spaces are not counted as part of the string unless the space is 
between words in the same string item. Leading spaces are ignored. Trail¬ 
ing spaces may be ignored, or included as an ''invisible" part of the string 
item, depending on your version of BASIC. But imbedded spaces, such 
as those between words in one string item, are part of the string. 37 






























10 READ B*, C$, A, B, C 



Now try the next program, which shows that a single READ statement can be 
used to assign both numeric values and strings to the appropriate READ 
variables in the same READ statement. 


NEW 

10 READ B$, C$> A/ B, C 
20 PRINT a; b$; b; b$; c; c$; a+b+c 
90 DATA ADDED TO* GIVES YOU* 5* 8* 10 

RUN 

5 ADDED TO 8 ADDED TO 10 GIVES YOU 23 


If your computer didn't leave spaces before numbers where ours did, never 
fear: it just means that your BASIC does not leave a leading space in front 
of positive numeric values where a plus sign could go, or a trailing space 
after a PRlNTed value. Check page 29 and procede: we'll deal with this 
problem shortly. 


J -Pvp 


I_ 0 

0 \ READ }0 

r 






These two are string variables. 

// 

10 READ B$* CS* A* B* C 

/// 

These three are numeric variables. 

The computer assigns the strings and/or the numeric values in the DATA 
statement, one at a time, to the variables in the READ statement. However, 
the computer is quite particular. It will only assign numeric values to numeric 
variables (those without the $). String variables (those with the $ at the end) 
will accept numbers as strings, as well as words and some symbols such as 
punctuation marks. But the computer won't pick and choose. The DATA 
must be in the same order as the variables: numeric values for numeric 
variables and strings for string variables. Got that? Notice again that each 
item in the DATA statement is separated by a comma, but there is no comma 
after the last item. 


sO 

o 

D 

1> 

H 

1> 

1> 

a 

a 

m 

a 

H 

o 


0 

l-H 

< 

m 

0 



Replace Line 10 in the last program with this Line 10. Why won't it RUN? 
10 READ A* B* C* BS* C$ 

(If you wish to check for the entire program, type LIST. If you have faith, 
just type RUN.) 

LIST 


< 

O 

C 


cn 


10 READ A* B* C* B$* CS 

20 PRINT a; b$; b; bs; c; cs; a+b+c 

90 DATA ADDED TO* GIVES YOU* 5* 8* 10 


0 
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RUN 
?SN ERROR 



Notice that the computer thinks 
that you made an error in the 
order that you entered the data 
in the DATA statement. 

















Like we said, the READ statement won't pick and 
choose among the items in a DATA statement. The 
items in the DATA must be in the same order as the 
variables — numbers only for regular variables and 
strings for string variables (the ones with the $ after 
the letter of the alphabet). 

Another thing you should know about DATA 
statements: Even if several READ statements are 
used in a program they take their values in turn 
from the same DATA statement. When all the DATA 
in one DATA statement is used up, that is, when all 
the items have been assigned just once to variables, 
the computer goes on to the next DATA statement. 
Even if they are located in different places in a pro¬ 
gram, the computer looks for DATA statements in 
line number order, and takes the DATA statement 
with the smallest line number as the first one. 


How's your typing? 



Don't forget ? for PRINT. 


10 READ A 
20 PRINT A 
30 READ B 
40 PRINT B 
50 READ C 
60 PRINT C 
70 READ D 
80 PRINT D 
90 READ A 
100 PRINT A 
900 DATA 832 
910 DATA 581 
RUN 
832 ^ 

5009 
32 
581 
200 


5009/ 32 
200 


Value of A,‘from 900 DATA 
Value of B, from 900 DATA 
■Value of C, from 900 DATA 
-Value of D from 910 DATA 
-New value of A from 910 DATA 


DATA 


READ 
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On Using Quoiaiion lUarks 


in 



READ 


DBUU Siaiemenis 


READ and DATA statements work the same way for strings. One little thing 
to notice — if you want to have a string with commas in it, you must use 
quotation marks, just as you do in LET statements or INPUT strings. 


first item 


30 

40 



DATA "PAHSLEY^ 
DATA TO DINE 


SAUE/ 



ROSEMARY.. AND WINE”.. 


second item 


ARE FINE 


third DATA item 



NEW 


9 


10 READ X$^ Y$^ Z$ 

20 PRINT X$. YS^ Z$ 

30 DATA "PARSLEY. SAGE. ROSEMARY. AND WINE". ARE FINE 

40 DATA TO DINE 

RUN 

PARSLEY. SAGE. ROSEMARY. AND WINE ARE FINE TO DINE 



On video displays, TO DINE may appear on the next line instead of the same 
line as the rest, because PARSLEY, SAGE, ROSEMARY, AND WINE goes 
past the beginning of the second print position column or print zone. There¬ 
fore ARE FINE prints at the third print position, and TO DINE must "wrap 
around" and print at the first print position in the second line. 


READ 

READS data into specified variables or string variables from DATA 
statements. READs from the first DATA statement in the program and 
continues reading progressively through all DATA statements. 

10 READX, Y,Z 
20READN$,A$,Z 

DATA RESTORE (See page 71.) 

Hold data to be read by the READ statement. 

(line no.) DATA (numbers or strings, separated by commas) 

10 DATA 35, 16,-72, BINGO 
20 DATA JEROME, MOLLY, ALBERT 

Strings—if leading or trailing spaces, (:) or (,) are to be included in the string, 
enclose the string in quotation marks. 

30 DATA “INSTANT BASIC, BY BROWN, JERALD R.” 
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• • • • 

•••• ••••• • 


• ••• • 


••••• •••• 







Another time you must use quotation marks in DATA statements is when you 
want one or more spaces before or after the characters in the string. As we 
saw earlier, spaces between words or characters are included in the string. 

It's just if you want spaces before or after the string that you must use 
quotation marks in a DATA statement. Check it out. 



Type in this program, then RUN it and its several modifications. 


NEW 


10 READ A$^ B$, CS 
20 PRINT c$; B$; A$ 

30 DATA GREAT/THIS.*AIN • T -- 

RUN 

AIN * TTHISGREAT — not so great really . 


three strings in a DATA statement tra la ... 


30 DATA GREAT/ 
RUN 

AIN’TTHISGREAT 


TH IS/ AIN’T — replace Line 30 with a DATA statement that has spaces before 

or after the string items. 

^— the spaces were not included in the strings assigned 
to the string variables. But do not despair... 


30 DATA GREAT/ ” 
RUN 

AIN’T THIS GREAT 


THIS •'/ AIN’T 

It worked! 


LIST 


! replace Line 30 again with an item of DATA that uses quotation 
marks around the string item to tell the computer to include 
spaces before and after the word as part of the string. 


10 

20 

30 


READ AS/ BS/ 
PRINT cs; B$; 
DATA GREAT/ '• 




The computer is informed that we want everything inside 
the quotation marl^ncluded in this string, and that means 
spaces too. 


41 
























We recommend that you write out your programs on paper before typing 
them into the computer—saves most beginners a lot of confusion. Try out 
and debug your solutions before peeking at the way we did it. 

CHAPTER 2 PROBLEMS 



1. Name the three statement types that are used to assign values to a variable 

(numeric or string). _ /f ^ _, A _. 

2. When you use a LET statement string variable information must be 

enclosed_ — _. 

3. After a program is^n, the variables still cqntain the last value. How do 
you find out these values? Aa Ja . 

4. Fill in the trace boxes. ABC 5 

10 LET A= 12 ~~71Z 

20 LET B = 14 )<4 

30 READC 1^0 

40 PRINTA + C 

50 LET D = (B + 0/6 . _ JT 

60 PRINT D 

70 DATA 16, 13, 14 \ \ \ /L | T " 

5. Write a program to READ and PRINT the information in this DATA statement. 
DATA SHERRY DELIGHT, 800-555-1212, 23 

6. Write a program that 'prompts' the user to enter name, birthdate, and astro¬ 
logical sign. Then produce the output as shown below. 


A 

B 

c 

D 

/ 2^ 










ro 














JJ=- 

/V 




7. 


RUN 


ENTER 

YOUR 

ENTER 

YOUR 

ENTER 

YOUR 

JERRY 


SINCE 

YOUR 


NAME? JERRY 
ASTROLOGICAL SIGN? LEO 
BIRTHDATE? 8/13/1950 

YOU ARE UNDER THE SIGN OF LEO 
BIRTHDAY IS 8/13/1950 


A new water saving device for your toilet claims to save 150 gallons of 
water per month per toilet. Its cost is $4.80. Water costs about $0.48 
per 100 cubic feet. 


(a) How long in months, will it take to 'pay off' the purchase price 
of this device in water used (or not used)? 

(b) The device has only a 12 month guarantee against falling apart. 
Is the purchase worth while in purely economic terms? 


(You can and should apply this same problem solving logic to other energy 
saving devices on the market.) 




Drawing by Marie Marcks reprinted courtesy of Kaiser News ^1967 


The answers and our 
solutions are in the 
back of the book 
(unless the disappearing 
ink has worked, hee hee). 




























Loop ta Line. 







Douj;le Loop. 



Or^ ill ottier WdfdS, QOTO... 

Enter this little gem in your trusty computer; (or was that your testy computer. . . ) 
NEV — Clear the computer's mind to concentrate on your next instructions. 


10 PRINT "THIS IS A LOOP.* 
20 GOTO 10 ooQooQ ft ftaoooemmU ' 


^G( 


GOTO 10 tells the computer to "go to" 
the statement with line number 10, and 
continue RUNning the program from 
there in normal line number order. 



Wait! Stop! Balt! Cease? Desist^ 


Before you RUN it, look for the CONTROL 
(CTRL) key, and the key of C. 

Found them? OK, now RUN the program. When 
you get tired of watching the output, depress and 
hold down the CONTROL key, and while holding 
it down, press the C key at the same time, then 
release both keys. This will stop the computer from 
continuing to forever RUN this unending program. 


In almost all BASICs you 
can (in some you have to) 
type GOTO as one word, 
with no space between 
GO and TO. 

h... 



DO IT 



RUN 

THIS 

IS 

A 

LOOP 

THIS 

IS 

A 

LOOP 

THIS 

IS 

A 

LOOP 

THIS 

IS 

A 

LOOP 

THIS 

IS 

A 

LOOP 

THIS 

IS 

A 

LOOP 

THIS 

IS 

A 

LOOP 

THIS 

IS 

A 

LOOP 

BREAK 

: IN 

10 ^ 


Press 



00®®©©G(T).00000 

©OOOQOOOO©©®© 

©©©©©oo©ooo©© 
©QOG:iQo©©oooe 



together! 



We pressed CTRL and C together. 


The computer tells you at what line number CONTROL/C 
broke into the program. You have to be real quick on the 
CONTROL/C to stop a RUN of this program before it 
has filled the display screen from top to bottom and 
beyond. Try RUNning the program several times and see 
if you can stop the RUN before the computer has done 
20 loops. 


READ 




The computer executed Line 10 over and over again, because the GO TO statement in Line 20 
told the computer to go back to Line 10 every time it finished executing Line 10 and got to 
Line 20 again. This is an infinite loop - it just goes on running in circles, repeating itself, 
forever, or until some clever person presses CONTROL and C at the same time. 

Use CONTROL/C any time you wish to interrupt or stop the computer from RUNning a 
program. On some computers, the BREAK key or the RESET key may perform this task, 
but be careful with these. They may not only stop the program, but also erase it or even 
erase BASIC, so that it has to be reloaded or restarted. 
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counting loop using GOTO 



Now enter this "counting" program. It's another infinite loop program, 
so get ready to CONTROL/C after it starts to RUN. 


NEW 




A clean start. 


10 LET T=1 
20 PRINT T^ 
30 LET T=T+1 
40 GOTO 20 
RUN 
I 
6 
1 1 

BREAK IN 20 


2 

7 

12 


Note the comma at the end of Line 20. Note the 
way the RUN is spaced across the page. Put 2 
and 2 together. What does the comma at the end 
of the line do to the output? 


3 4 5 

8 9 10 

(Your computer's output will vary 
according to the line length of 
your printer or display screen) 


(Did you remember about CONTROL/C to stop the program?) 

Next, replace Line 20 by typing in a new Line 20 that has a semicolon at 
the end of the statement, like this: (DON'T type NEW or you'll lose the 
rest of the program!) 

20 PRINT T; 

LIST (if you want to see the complete program with the new Line 20) or 
RUN it. 

RUN 

1 2 3 4 5 6 7 8 9 10 1 1 12 13 14 15 16 17 18 19 

21 22 23 24 25 26 27 28 29 30 31 32 

BREAK IN 20 One T did all this' Fastest CONTROL/C in the West.. . 


Want to see the effect of no comma or semicolon at the end of the PRINT 
statement? Then go ahead and replace Line 20 like this: 




(Aw, you guessed it was done on a slow printer.) 


BREAK IN 20 











Let's follow along as the computer RUNs that last program. Follow the arrows 
through the program. 


START HERE 


10 LET T=1 




§i§ 


20 

30 

40 


PRINT T- 




LET T=T+1 


GOTO 201 




r 


This is a loop. It is a “forever" loop. 

It goes on and on and on and on and on and on and on and on and on ... 

when the program is RUN 

until you stop it with CONTROL/C. 


Here's another way to look at it, a trace of the program. Remember, a 
trace traces the path the computer takes through the program it is working 
on, and shows you what values are assigned to the variables at any step in 
the program. In the column marked T we show the value of T after the 
statement on the same line has been carried out by the computer. In other 
words, we show what value is in the box labelled T after each statement has 
been executed. You can think of it as always being the same little box for 
the same variable T — only the value assigned to T changes from time to 
time. 

STATEMENT VARIABLES & VALUES EXPLANATION 


10 LET T=1 
20 PRINT T 
30 LET T=T+1 
40 GOTO 20 

20 PRINT T 
30 LET T=T+1 
40 GOTO 20 
20 PRINT T 
30 LET TaT+1 

40 GOTO 20 

etcetera, etcetera, etcetera 


T 

1 

T 

1 


Assign T the value 1 

Print the value of T. 

Increase T by 1 (add 1 to the old value 
of T). 

Go to beginning of loop. 

Print the value of T. 

I ncrease T by 1. 

Go to beginning of loop. 

Print the value of T. 

Increase T by 1. 

Go to beginning of loop. 


Some versions of BASIC have a TRACE 
instruction that shows you the line numbers 
of the statements as they are executed, and 
the order they are executed, during a RUN, 
even if there are no PRINT statements. This 
can be helpful in debugging a program. 
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r 



10 INPUT "LENGTH OF FLOOR IN FEET"; L 
20 INPUT "WIDTH IN FEET"; W 
30 PRINT "YOU NEED"; (L*W)/9; "SQ. YARDS 
40 PRINT 
50 GOTO 10 
RUN 

LENGTH OF FLOOR IN FEET? 12 
WIDTH IN FEET? 10 

YOU NEED 13.3333 SQ. YARDS OF CARPET. 



OF CARPET." 

Depending on how positive values 
are printed by your BASIC, insert 
spaces (if necessary) inside the 
quotes in line 30, after NEED 
and/or before SQ. 


LENGTH OF FLOOR IN FEET? 

WIDTH IN FEET? 18 
YOU NEED 32 SQ. YARDS OF 

LENGTH OF FLOOR IN FEET? 16 
WIDTH IN FEET? 24 

YOU NEED 42.6667 SQ. YARDS OF CARPET. 



LENGTH OF FLOOR IN FEET? 



To get out of the RUN of a program that has stopped at 
an INPUT statement waiting for your entry, type the 
CONTROL/C combination of keys followed by RETURN, 
or the appropriate alternative on your keyboard. 


Can you figure out what Line 40 does? 

If you guessed "nothing", you are close to right. It leaves a blank line in the 
printout, thus separating each loop through the program. This is just to 
keep you from getting confused when RUNning and using the program. 


♦ 


Extra for Experts: Add to or modify the program to tell you the cost of the 
carpet if it costs $8.99 a square yard. Or a table of costs for various prices 
of carpets. 






(Suggestion: don't use CONTROL/C, just let the program loop enough times 
to reach BASIC's upper limit for handling numbers. Eventually you should 
get an Overflow error, and the computer will stop executing the program.) 
NEW 


DO IT 



10 

20 

30 

40 

RUN 

4 

?0V 


LET N=2 
LET N»Nt2 
PRINT n; 
GOTO 20 

16 256 

ERROR IN 


Reprinted by permission of Bob Glueckstein. 
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65536 4.29497E+09 1.84468E+19 

20 ^ — The overflow or out-of-bounds error 
message. The number got too big even 
for a computer! By the way, the last 
two numbers PRINTed by the RUN 
may be different for your computer. 

(Those are nt/mbersH?) 


















































You can see that after the computer got past 65536, it started printing the 
results like this: 4.29497E+09. This is called floating point notation, and 
it is just a shorthand method of expressing very large numbers or very small 
decimal fractions. Floating point notation has two parts to it: 


mantissa 




exponent 


E+OO 


The E shows where the exponent starts. The exponent can be positive or 
negative; you'll always find a + or — after the E to clue you. 


First, some examples of numbers written in the usual way, and then in 
floating point notation. 


One billion 

s&rsta=s=st 

ordinary notation: 


1000000000 or if you prefer 1,000,000,000 


exponent 


floating point: 


1E+09 




mantissa 



yplpme of the ^ajTh Jn bushels 

In ordinary notation we 
could use commas: 

or 

Floating point notation: 


31,708,000,000,000,000,000,000 


31708000000000000000000 



exponent 


3.1708E+22 


> 1 ^ 

mantissa 



Speed of a snaiLin jTTii|e:^per second 
ordinary notation: .0000079 


4 


xponent 


floating point notation: 7.9E—06 


Ihi f^Ll 


mantissa 
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Now, the rules: how to convert E notation (floating point notation) 
to ordinary numbers. 


IF THE EXPONENT IS POSITIVE: 

(1) Write the mantissa separately (that is, leave off the exponent and the E). 

(2) Move the decimal point of the mantissa to the RIGHT the number of 
places specified by the exponent. If necessary, add zeros. 

EXAMPLE: 1E+09 

I 2345678*1 
1.00000000 0 . 


We added 9 zeros. 1000000000 

Another example: 3.1708E+22 

I 2 3 4 5 6 7 6 S 10 l( a 13 14 IS 16 17 Id n 2o2l 22 
3.1 70800000000000000000 0. 


We added 18 zeros. 31708000000000000000000 


IF THE EXPONENT IS NEGATIVE: 

(1) Write the mantissa separately (that is, leave off the exponent). 

(2) Move the decimal point of the mantissa to the LEFT the number of 
places specified by the exponent. If necessary, add zeros. 

EXAMPLE: 7.9E-06 

6 5 4 3 2 I 


We added 5 zeros. 


.0000079 


You may have guessed that it is the decimal point that "floats" from one 
place to another to give floating point notation its name. Even if you 
don't have it down pat, now you know where to look for the conversion 
procedure. 































The version of BASIC you are using may round off or truncate a 
number after 6,7,8, or more significant digits, adding zeroes as 
necessary to maintain the decimal point location. We needn't get 
into technicalities at this point, but that is why your computer may 
display numbers not quite matching those in the RUN shown below. 

If your curiosity is killing you, the BASIC reference manual for your 
system may give you some clues as to what to expect in the way of 
number accuracy, and even the choices you may have. An Integer only 
version of BASIC may not be able to produce decimal fractions at all. 



NEW 




DO IT CAREFULLY 


10 PRINT 
20 PRINT 
30 PRINT 
RUN 
lE+12 
9E-06 

3.45346E+06 


1000000000000, 123456789, 3.987654321 

.000009, .0000000654321, .700007007 
345.3456E4, .3E-9, 6.666666E-4 


1.23457E+08 

6.54321E-08 

3E-10 


3.98765 
.700007 
6.66667E-04 


LIST 

10 PRINT 1000000000000/ 123456789, 3.987654321 

20 PRINT .000009, .0000000654321, .700007007 
30 PRINT 345.3456E4, .3E-9, 6.666666E-4 

Your BASIC may change the numbers to floating point when the 
program is listed, or they may stay in the same form as you entered 
them. 



So in the future you should understand what happened if the computer 
gives you a result in E notation. 


+ + + + + + + + + » * * * ♦ ♦ * * 


Because of the way the computer does arithmetic (not like you and me, for 
sure), very small inaccuracies sometimes result from its calculations, which 
may show up as, say, 49.000001 or 48.999999, where you would have 
expected a computed result of 49 even. It's not your programming, it's the 
machine. And here I bet you thought the computer was as accurate as it is 


fast! 


Ilatie pou experimenteb totap? 



GOTO 

^ DO IT HERE! 


Causes the program to jump or branch to specified statement, 
(line no.) GOTO (line number to execute next) 

• DO IT NOW! 

• 

A 


50 GOTO 10 

W 

• 
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Curing the Runaway Display 


To help you and your family extend your horizons to the metric system and to 
Celsius the Swede's temperature scale, here is a program to prepare a table of 
Fahrenheit and Celsius temperatures, starting at -30 degrees Fahrenheit. (I'm 
sorry, the rest of you are just going to have to guess.) This is an infinite loop 
program, so Be Prepared. The conversion formula, as it appears in math and 
science texts, is: C=5/9(F-32). 

NEW 


10 

LET T = 

~ 30 





20 

30 

40 

PRINT T; 
LET T = 
GOTO 20 

" DEGREES FAHRENHEIT = "; 
T -1- 1 

5 / 9 » 

<T - 32) 

RUN 

-30 

DEGREES 

FAHRENHEIT 

= 

-34.4444445 

DEGREES 

CELSIUS 

-29 

DEGREES 

FAHRENHEIT 

= 

-33.8888889 

DEGREES 

CELSIUS 

-28 

DEGREES 

FAHRENHEIT 

= 

-33.3333333 

DEGREES 

CELSIUS 

-27 

DEGREES 

FAHRENHEIT 

= 

-32.7777778 

DEGREES 

CELSIUS 

-26 

DEGREES 

FAHRENHEIT 

= 

--32.2222222 

DEGREES 

CELSIUS 

-25 

DEGREES 

FAHRENHEIT 

= 

-31.6666667 

DEGREES 

CELSIUS 

-24 

DEGREES 

FAHRENHEIT 

= 

-31.1111111 

DEGREES 

CELSIUS 

-23 

DEGREES 

FAHRENHEIT 


-30.5555556 

DEGREES 

CELSIUS 

-22 

DEGREES 

FAHRENHEIT 

= 

-30 DEGREES 

CELSIUS 


-21 

DEGREES 

FAHRENHEIT 

= 

-29.4444444 

DEGREES 

CELSIUS 

-20 

DEGREES 

FAHRENHEIT 

= 

-28.8888889 

DEGREES 

CELSIUS 


DEGREES CELSIUS" 



BREAK IN 20 

Being poised over the keyboard like Snoopy imitating a vulture, ready to pounce 
on CONTROL/C, is undignified. You need some method to slow down this 
computing fool of a machine to human speed. A strategically placed INPUT 
statement can do the job. 


NEW 


10 

20 

30 

40 

50 

60 

70 

RUN 

-30 


LET T = 
PRINT T 
PRINT 
INPUT " 
PRINT 
LET T = 
GOTO 20 


- 30 

DEGREES FAHRENHEIT = ";5 / 9 * 
PRESS ’RETURN’ FOR NEXT DISPLAY"; 



(T 

R* 


- 32);" DEGREES CELSIUS" 

Using the string variable R$ 
requires DIM for some BASICS. 


DEGREES FAHRENHEIT = -34.4444445 DEGREES CELSIUS 


PRESS ’RETURN’ FOR NEXT DISPLAY 


-29 DEGREES FAHRENHEIT = -33.8888889 DEGREES CELSIUS 
PRESS ’RETURN’ FOR NEXT DISPLAY 

-28 DEGREES FAHRENHEIT = -33.3333333 DEGREES CELSIUS 
PRESS ’RETURN’ FOR NEXT DISPLAY 
BREAK IN 40 


50 
















to ^ontrtit o^ uti ^n^ntte ^£oo^. 



A new null string (although it's tough to see any difference) gets assigned to R$ 
each time you hit RETURN. Since the INPUT variable R$ isn't used anywhere 
else in the program, it doesn't matter what gets assigned to R$. The point is that 
INPUT stops the further execution of program, in mid-loop so to speak, until 
you do something at the keyboard. 

If your version of BASIC suppresses (doesn't print) the automatic INPUT question 
mark when you include a prompt string, then you can use a null string for the 
prompt string, and nothing will be printed or displayed when the INPUT state¬ 
ment is executed. But the job of controlling the output display speed is still 
accomplished. Those with LINE INPUT available can use that statement instead. 



INPUT 


T 

o 


Even though the prompt string is an 
invisible null string, it still suppresses 
the INPUT question mark for most 
BASICS. 



20 PRINT "PRESS 'RETURN' FOR NEXT DISPLAY" 

30 INPUT "";R* 

40 PRINT T?" DEGREES FAHRENHEIT = ";5 / 9 * (T - 32);" DEGREES CELSIUS" 
50 LET T = T 1 
60 GOTO 30 

RUN 

PRESS 'RETURN' FOR NEXT DISPLAY 



-28 DEGREES FAHRENHEIT = -33.3333333 DEGREES CELSIUS 
-27 DEGREES FAHRENHEIT = -32.7777778 DEGREES CELSIUS 
-26 DEGREES FAHRENHEIT = -32.2222222 DEGREES CELSIUS 


BREAK IN 30 



A user friendly program (one that is helpful to the person at the controls or 
keyboard) would include these statements as well: 

22 PRINT "TO QUIT, PRESS 'CONTROL' AND 'C' TOGETHER" 

23 PRINT "AND THEN PRESS 'RETURN'" 
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CHAPTER 3 PROBLEMS 


1 . 


2 . 


Write these floating point numbers in normal decimal form. 


8.967E5 
1.00E15 
1.0E-3 
6.15762E10 
3.87124E-6 



V 


o . ‘ • I 




K . 


^ HIS M/V^TERS 


Write these decimal numbers in floating point notation. 


1786432345 

3134575321 

.00012479 

.007777777777 


3. If a program is waiting at an INPUT statement for you to enter 

data, how do you stop (or "get out of") the program?_. 

4. If your program is running in an infinite loop — it just keeps on truckin'... 

how do you stop it?_. 

5. Write a program to print a table of squares like the one shown 
below, using Tf 2 to calculate them. Stop the program when 
you've had enough if you're fast enough. . . . Otherwise, your 
computer will stop the RUN when it can't handle any more. 

(See page 46.) 

1 1 

2 4 

3 9 

4 16 The answers or solutions are in the back of the book 

5 25 

6 36 

etc. 

6. After you have perfected the table of squares program (problem 5), modify it 
for the Press RETURN To Continue technique (but only give that message to 
the user once). 
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Thanks to Rich “Santa Cruz” Didday for allowing 
the liberal use of his considerable wit and art from 
Finite State Fantasies, Matrix Publishers, Inc., 1976. 
Home Computers: Volume I Hardware and Volume 
II Software! 2^® Questions and Answers by Rich 
Didday are available from dilithium Press. 53 
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\\ 


REVEALED AT LAST: THE TRUE 

UNCENSORED STORY OF VARIABLES 



—— 


So far, we have been using the simplest possible variables: a letter of the 
alphabet, or for string variables, a letter followed by the $ that tells the 
computer to expect a string rather than a numerical value. However, more 
complicated variables are possible, and sometimes there are good reasons 
for using them. In a long or complicated program, you may need more 
than 26 different variables. Or, perhaps for clarity in the program you want 
to give a variable a label that clearly identifies it, or perhaps you wish a 
set of related variables to have similar labels. 

Rules for variable labels: 

The first character of a variable must be a letter of the alphabet. After the 
first letter, you may use letters, numbers or symbols in the variable name. 
(A3, A76, AL$, SL$, S3$ etc.) 

However, (there's always a however) you may not use as a variable name 
or as a part of a variable name, the words or abbreviations that are actually 
part of the BASIC language of direct and indirect statements (or functions, 
which you'll meet later on). Such words as NEW, RUN, INPUT, PRINT 
or LET are part of the BASIC language and therefore cannot be used as 
part of variables or data names. For a complete list of reserved (taboo) 
words that you can't use as variable names or part of variable names, see 
the reserved words list in the reference manual for your BASIC. 



Examples of legal variable names: 

Examples of no-no's: 



SALARY 

SI 

LETTER j 



TAX 

S2 

RUNNY NOSE ' 



PLAYER 

S1$ 


GUESS 

PLAYERS 

LISTERINE 





SPRINT 

CORSES 


Other versions of BASIC may only accept two-character variables where the first 
is a letter and the second a digit, eg., A1, A2, K9. Try out the possibilites in the 
variable testing program. 



NEW 


NEW 


10 LET SUBTOTAL = 5000 
20 PRINT SUBTOTAL 

RUN 


10 LET SALARY = 250 
20 PRINT SALARY 


RUN 

250 


o 

This variable name 
works ok. 


7SYNTAX ERROR IN 10 
LIST O 


10 LET SUB TO'TAL = 
20 PRINT SUB TO TAL 


[154 


Uh-oh. The reserved word TO is 
embedded in this variable name. 

5000 


LIST 


10 LET SALARY = 250 
20 PRINT SALARY 


llililigllilllilllllllillliHliiilililililililllililllidlilitililililililililidlilllllililillliHli 






















However, there is a definite catch in using more than two characters in a 
variable name: many versions of BASIC only look at the first two 
characters in a long variable name. This can lead to interesting results. 


^^ 

^DQ 


Try this program using names for variables. 




Yet another good idea, though unfortunately not fully implemented, is 
the use of datanames. In most high level languages, and assemblers for 
that matter, one can call a spade a spade. If you are using a variable to 
store a total you can call it TOTAL. This helps the programmer to 
remember what goes where. In this BASIC one can call a variable FRAN, 
if it helps, but you must proceed with considerable caution thereafter. 

Only the first two letters are checked so any later dataname using the same 
two will be confused. And you had best not use TOTAL at all. It contains 
the reserved word TO and any embedded reserved word will cause a syntax 
error. They are not always easy to spot and MITS BASIC only checks for 
this at RUN time, a serious weakness in any BASIC and you could find 
that you have to change every occurrence of a bad dataname. So, if you ^ 
are starting on a long program, try the proposed dataname first! ^ 


Reprinted from the article Altair BASIC 
by Keith Britton and Bob Mullen, 

Peoples Computer Company, Vol. 4 No. 2 
(Sept. 1975). 




















^ave ^ime, ^ave Space, 



Before going on to longer programs and more BASIC instructions, here are 
some time, computer memory space, and typing savers. One saving we have 
been making all along is to leave off the END statement in BASIC. In 
early versions of BASIC, every program had to have an END statement as 
its last program instruction (the statement with the highest line number, or 
the last statement executed by the program). While END does have other 
uses, no END is needed as the final program statement in the spiffy 
microcomputer versions of BASIC, so we won't even mention it. But 
that's not all you can leave out. Try these demonstration programs. 


999 END 




NEW 


Is it true? Have the values really been 
assigned to the variables? Type in the 
following two direct mode instructions 
to verify that the values were assigned 
with or without LETs during the RUN. 


10 LET M=5 
20 Q-10 
30 PRINT M*Q 
RUN 
50 




PRINT M 
5 


PRINT Q 
10 




Try another LETIess statement... 
NEW 


10 G=13 
20 PRINT G 
RUN 
13 



If your computer evaluated M*Q as 5 times 10, then you know that it 
assigned the value 10 to the variable Q, even though we left out the LET 
statement. So now that you understand that you don't need a LET in a 
LET statement, and what you are LETting is the variable Q be assigned the 
value 10, you need never again use LET in a LET statement. 

When you use LET, you lose room in the computer's memory, but you gain 
a little time, faster execution by the computer. 

































Vfevent ^iisiglitly Callouses 



But leaving out LET isn't the only shortcut our spiffy new BASIC provides 
the programmer with callouses on his/her typing fingers. Here's the short 
form for entering a PRINT statement:? 


NEW 


10 PRINT "HELLO GOOD LOOKING 
20 ? "USING ? FOR PRINT" 

RUN 

HELLO GOOD LOOKING 
USING ? FOR PRINT 


For DEC BASIC Plus, use the 
'^and" or ampersand sign (&) 
instead of '7". For Atari 
BASIC, use the exclamation 
point (!) as the shorthand for 
PRINT. 


? means PRINT 
when entering 


Next, LIST the program and note what replaces the question mark in Line 20 
of the LISTing. 

LIST 




10 PRINT 
20 PRINT 


•HELLO GOOD LOOKING" 
•USING ? FOR PRINT^^ 


You use ? when you enter the program 
(saves typing). But when you LIST the 
program, the smart computer prints 
PRINT. (Not true for some dumb 
computers.) 


Our next little program shows how you can pack and crunch the instructions 
you are giving to the computer into fewer statements, by using multiple 
statements in a line. 


Use 


(colon) to separate statements. 


On this style keyboard, don't use 
SHIFT with this key, or you'll get the 
asterisk (*) instead of the colon (:), 
and an instant program bug. 


NEW 




10 A*5 : B=10 : C=15 : D»20 
20 ? A+B+C+D 
RUN 
50 


LIST 


4 LETIess LET statements in one line! 
The ? form for PRINT, remember? 


10 A=5 : B=10 : C=15 ; D=20 
20 PRINT A+B+C+D 
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Same sort of program as on the last page, but all in one multiple statement lineJ 


NEW 



10 W*2 : 
RUN 
384 


LIST 
10 V-2 : 


X=4 : Y=6 : Z=8 : ? W*X*Y*Z 


X=4 


Ya6 


Z=8 



See the PRINT statement at the end of the tine? 


PRINT W*X*Y*ZS 


Of course it works for string variables, too! 
NEW 


Some versions of BASIC, eg., Tl BASIC, 
don't allow multiple statements per line 
at all. Northstar BASIC uses the backslash 
( \) to separate multiple statements, but 
it will accept colons and automatically 
change them to the backslash. 

Sia 






10 P$=”YES" 

RUN 

YES 


LIST 

10 P$s:"YES” 


QSa”N0” : R$=”MAYBE*’ 
NO MAYBE 


Q$=»N0" ; R$="MAYBE" 


? Pi, Q$> R$ 


PRINT Pi, Qi, 




This is rather condensed program writing, and you may wish to write out your 
programs without multiple statements per line, just to keep things clear. 

Later you can rewrite a program in more condensed form if computer storage 
space for your program is a problem (i.e., it's a really long and involved pro¬ 
gram, or has a lot of strings, or lots of data). Meanwhile, you can save on 
typing. 

But beware, there are some restrictions on what can go where in a line with 
multiple instructions. 


A GOTO may only be used as the last statement in a multiple statement 
line, not in the middle somewhere. Otherwise, the rest of the statements 
on that line (after the GOTO statement) will not be executed, and who 
needs decorations in a computer program? (or a book on computer 
programming . . .) 


DATA statements may not have any other statements before or after DATA, 
therefore the DATA statement may never be used in a multiple statement 
line. DATA statements always stand alone. 
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Make A REMark 


Another statement which must stand alone, or else be the last statement in 
a multiple statement line, is the REMark statement. 



NEW 


10 REM-SET 
20 ? X 
RUN 

0 ^ 


X EQUAL TO 5 : X=5 


Computer never sees X = 5, because when it 
comes to a REMARK, it skips on to the next 
line in the program automatically. 


Since no other value was assigned to X, the 
computer assumes that X = 0, and therefore, 
prints 0. Did you know that? An undefined 
variable equals zero. 



NEW 


10 X»5 
20 ? X 
RUN 


REM-SET X EQUAL TO 5 


This time the computer executes X = 5 
before it sees REM. Then it skips on to 
the next line in the program and PR I NTs 
the value assigned to X. 



REMark statements are notes to the person reading a LISTing (or writing!) 
a program. They are used to explain what that line or section of a program 
does. REM (for remark) statements are often used to tell where a subroutine 
starts. A subroutine is a section of a program of one or more lines that 
performs a part of the total job of a program. You'll hear more of subroutines 
as we get into longer and more complex programs. Meanwhile, if you want to 
document (help explain) your program or tell the reader what your program 
does, just make a REMark. 
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REM 

Allows comments to be placed in the program. REM is a nonexecutable 
statement. 

(line no.) REM (comments) 

10 REM THIS PROGRAM WAS DESIGNED BY JRB 
20 REM VARIABLES USED X, Y, Z, A, B, C 

DEC BASIC Plus only 

! separates executable portion of line from remarks. 

140 LET Z = P*Q ! CALCULATES Z 


T MULTIPLE STATEMENTS PER LINE 

0 Separated by colon (:). 

• DEC BASIC Plus and North Star BASIC 

# Use colon (:) or backslash (\). 


CHAPTER 4 PROBLEMS 


1 . 


2 . 


Test the following list of variable names with the Tester program (page 54). 
Circle the part of these variable names that make them "illegal." 


CLEARANCE 

DIMENSION 

FOREIGN 

CARDIFF 

POSITIVE 

FREEDOM 

AMPERSAND 


REMARKABLE 

SINNER 

ABSOLUTELY 

INTERESTING 

MANTAN 

DEFINATE 

PEEKABOO 


HIGHSTEP 

FASINATE 

FANTABULOUS 

READABLE 

HOLDOUT 

GLUCOSE 


In a multiple statement line, DATA statements should only be used 


3. In a multiple statement line, GOTO should only be used as the 


4. Rewrite the program you did for Problem 5 on page 52, using multiple 
statement program line{s). 

5. Rewrite two or three of the programs you wrote in previous chapters to 
take advantage of all these neat, new space and time saving tricks. 










sij^s ©? ejiiissiej^ 


and othQT 


errors in my toays 


A word from your friendly author: 

All the spaces I leave in BASIC statements are not needed: NO space is 
needed after the line number, nor after the BASIC statements such as PRINT, 
READ, DATA, INPUT or other instructions, nor after the items in a PRINT 
statement (after commas or semicolons). Spaces are NOT needed between 
DATA statement items either. Each space uses up a little of your computer’s 
memory, but this is not a problem unless your programs are very long or 
have a lot of DATA values or a lot of strings. I put in those spaces just to 
make it easier for you to see what is happening in each statement. And 
remember, if you wish to save on typing, you can leave out REMark statements. 

In most versions of BASIC, you do not need to initialize variables. Initialize 
means assigning all variables their first value. If you don’t initialize in your 
program (using LET, INPUT, or READ), then most BASICs automatically 
assign a value of zero to a variable the first time it is encountered when the 
program is RUN. This is an invisible process—that is, it doesn’t show in the 
program itself. If you are sharing your programs with other people, it is 
considered good programming practice to initialize the variables in the pro¬ 
gram, rather than letting the computer do it for you. This can avoid confu¬ 
sion to somebody else using your program, or even to you if you look back 
at your program a while after you first write it. 

Refer back to previous explanations and rules of BASIC, for help in writing 
programs and help in debugging your program if it doesn’t R UN without 
error messages. 

You can tell which programs I couldn’t type in correctly on one try - they 
are LISTings with the ? changed to PRINT, and NEW was pasted in place 
at the top. Don’t let typing get you down. It’s frustrating to get to the end of 
a complicated multiple statement line and then notice a mistake at the beginning. 
My frequent errors — 

(1) Forgetting the : that separates statements in a multiple statement line, 
lam especially prone to forgetting the colon after a PRINT statement that 
ends with ; or, (the technique used to make the next PRINT statement 
output appear on the same display or printer line as the last PRINT statement 
output). 

(2) Forgetting the ? for PRINT, especially in direct mode, or when the PRINT 
statement is in the middle of a multiple statement line. 

(3) Using the SHIFT key when I shouldn’t, or not using it when I should. 

Note that using SHIFT and typing a letter key will usually display and 
PRINT that letter all right, but it might not RUN, giving you a 
syntax error—an invisible error! To cure the problem, retype the line 
and don‘t use SHIFT with the letter keys, except for special symbols. 

(4) Leaving off the quotation marks at the end (or in the middle) of a 
long program line, for example, in a series of PRINT statements such 
as instructions for a game, where the PRINT statement line doesn’t 
end at the end of a sentence. You have to type the whole line over 
again, just to put the quotation marks in, unless your system has a 
good program line editor and you take this opportunity to become 
familiar with it. (Actually, some BASICs will be tolerant if you leave 
off the final quotation mark at the end of a PRINT statement string.) 
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(5J Not matching parentheses (one right parenthesis for each left parenthesis). 

(6) Another frustrating one is to be entering a statement, but accidently using 
a line number for a statement you already entered. The first statement 
with that same line number is replaced by the second one. Double trouble: 
you must reenter both lines. But stay alert. That SHIFT/® combination 
(see the bottom of page 15 for the variations) is the one to use to avoid 
wiping out a previously typed in line (always the most complicated one in 
the program, of course). But you’ve got to notice the mistake before you 
hit RETURN. 

(7) Lousy “hunt and peck” typist that lam, I occasionally (by accident) 
type letter oh for zero, or vice versa, a hard-to-notice program bug. 

It’s perfectly alright to break down our multiple statement lines or direct mode 
instructions into single statements. Since we number our programs by lO’s, 
a three statement line numbered 10, could become lines 10,11 and 12. You 
may save time and effort in the long run. 

The RUNs (and less often the programs) done on my computers may differ 
from yours. Error messages and other details may be different for the version 
of BASIC you are using. Locate the Error Message chart in the BASIC 
reference manual for your system. Found it? Now keep it at hand so you can 
check the error message explanations and clear up confusion and program 
bugs. 

Throughout this book we will be showing you some common errors in pro¬ 
gramming. You learn from mistakes, too, you know. You also learn what the 
limits are when using BASIC. In addition, you will be familiar with error 
messages that your version of BASIC provides. These messages give you clues as 
the mistakes in your programs, to help you debug them. 

In this book we are teaching you how to instruct the computer in BASIC. We 
are not teaching you how the computer deals with this kind of instruction, or 
how it performs its “computing” function. If you have more than a passing 
interest in personal computers, then read Computers for Everybody, Jerry Willis 
and Merl Miller, dilithium Press, 1981, Peanut Butter and Jelly Guide to Computers, Jerry 
Willis, dilithium Press, 1978, Understanding Computers, Paul M. Chirlian, dilithium Press, 

1978, and Nailing Jelly to a Tree, Jerry Willis and William Danvers, dilithium Press, 1981, 

Small Computers for the Small Businessman, Nicholas Rosa and Sharon Rosa, dilithium 
Press, 1980. These books allow you to get into various aspects of the world of 
computing to the level that interests you. They make pleasant breaks from 
stints at the computer keyboard, and help keep my publisher in business. 

While all general purpose computers can be made to follow instructions in the 
language called BASIC, you are well aware by now that there are literally dozens 
of languages called BASIC that are not entirely compatible—a program that RUNs 
just fine on one system may not RUN on another without at least minor modifica¬ 
tions. In other cases, the program will RUN, but produce from mildly, to wildly 
different results! Not only do various computers speak BASIC with an accent, but 
some have bigger BASIC vocabularies than others, and some use different words 
(instructions) to mean the same thing computing-wise. You may have noticed 
that I’ve used five different computers and three printers in preparing this book, 
but I have deviously removed the “system prompts” (see page 4), so none of you 
should feel either picked on or left out. Although this puts a little extra responsi¬ 
bility on you to adjust the programs for the idiosyncracies of your BASIC, it will, 
in the long run, provide you with more versatility in your use of other folks’ 
programs. Really, it’s good for you! And now that companies as diverse as 
Imperious Bigname Manufacturers and Atari are providing Microsoft for their 
microcomputers, it certainly behooves you to know a bit about it. By the time 
you finish this book, you’ll probably want the latest and most enhanced version 
of BASIC available for your computer, to give you maximum programming 
versatility, simplicity, and power. 11 

For my views on computer graphics, see page 121. Jerald R. Brown 























Now we come to a very interesting and important capability of BASIC: 
the ability to compare and decide. In traditional computer jargon, this concept 
is called conditional branching. Branching is what happens when the computer 
follows an instruction that sends it to a different part of the program, not 
in regular line number order. You can think of the GOTO statement as a 
branching statement because it tells the computer to branch to and 
execute a specified statement next, rather than continuing on down the 
program in line number order. 


GOTO (line number) 


line to branch to 



inTHacucinG 

ir...TijEi 


So what we are leading up to is conditional branching. If you think about it, 
you can see that if branching means GOTO, then conditional branching must 
mean GOTO, but only under certain conditions. The condition is where the 
computer must compare and decide. Conditions can be true or false. The 
computer must compare and decide whether a condition is true or false. 

And now we finally get to the actual BASIC statement that tells the computer 
to compare and decide: the I F...THEN statement. Actually, there is a whole 
family of IF...THEN statements. Here is a first look at the IF...THEN 
statement in its most general form. 

condition, 
frequently a 

line number comparison action to be taken 

"^ IF ^ THEN ^ 



All one BASIC statement 
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Arboreal Branching, not to be 
confused with Conditional 
Branching using IF... THEN. 













































ON 1 CONDiTiON 



First warning: if a condition is found to be false, the computer goes on to the 
next line numbered statement. That means that if you use an IF ... THEN 
statement in a multiple statement line, the computer will not see or execute 
any other statements following the IF ... THEN statement if the condition is 
false. However, if the condition is true, then the computer will take the action 
specified following THEN, aoc/ execute the rest of the statements on the same 
multiple statement line. As you will see, this fact is actually quite useful. 

We told you that there is a whole family of IF...THEN statements. The 
condition (the part between IF and THEN) comes in six different delicious 
flavors, which you will see in the box on the next page. All of the members 
of the I F...THEN family of statements can use any one of these six different 
conditions between IF and THEN. But that isn't what tells the family 
members apart. The distinction is in what comes after THEN, that is, what 
action to take if the condition is true. 


The original IF ... THEN statement, the one that is the most common statement 
to use for conditional branching, is like having GOTO (line number) after 
THEN. In fact, you have to enter it like this in Atari's original BASIC: 


IF (condition) THEN GOTO (line number) 


But even in most old-fashioned BASICS you can write it like this, without the 
GOTO after THEN (like leaving out LET in a statement to assign a value or string 
to a variable, you know . ..). 


IF (condition) THEN (line number) 

t 

The GOTO is 
understood, so 
you don't have 
to put it in. 


There are two possible outcomes or possible results of the comparison. The 
comparison can be true, or it can be false. Let's look at these two cases: 
comparison true, or comparison false. 





IF (condition true) THEN 


(action to take) 


Here is where the 
computer compares 
and decides that 
the condition is true. 



The computer does 
what this part tells 
it to do when the 
condition is true. 


IF (condition false) THEN 


But if the computer 
compares and decides ' 
that this part is not 
true (which means it 
is false, of course) ... 


(action to take) 

... then the computer 
forgets about this part 
and goes on to the 
next line numbered 
statement in the program. 
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6 ^ottcUUdtA 

^IF.-THEW 


< if the first value is less than the second 

> if the first value is greater than the second 

= if the two values are equal 

<= (or = <) if the first value is less than_or equal'to the second 

> = (or = > )if the first value is greater than^equal to the second 

<> (or # ) if the two values are not equal 


If you aren't familiar with these symbols and what they mean, you will avoid 
future confusion by getting familiar with them now. 


> 

< = 
>= 
<> 





ir...TiiEi mm 



A second member of the IF...THEN family is the IF...THEN PRINT statement. 
Instead of having a line number after THEN for the computer to branch or GOTO, 
you can have the statement PRINT anything a PRINT statement can PRINT, 
following ail the rules for regular PRINT statements. IF...THEN PRINT only 
PRINTS if the condition is true, of course. 

IF (condition) THEN PRINT (anything a PRINT statement can do) 


If the condition is false, then the computer will not PRINT anything, and just go 
right on to the next line numbered statement in the program. 

Are you tired of theory and want some action? Are you confused? Don't give 
up, the light will dawn. For our first demonstration program, let's use 
IF ... THEN PRINT, only because it will show most clearly how all this 
comparing and deciding works for you and the computer. We will demonstrate 
the other IF ... THEN family of statements in due time. 
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The multiple statements in line 20 take advantage of the fact that when 
an IF...THEN or an IF...THEN PRINT condition \% false, it causes the 
computer to skip on down to the next line numbered statement. That 
means the computer ignores any statements following the false I F...THEN 
con6\t\or\ if they are on the same line. But if the IF...THEN condition 
is true, the rest of the I F...THEN statement is executed, as well as 
any statements that follow. Got that? It's another trick to using 
multiple statements for your future programming needs. 


If the condition is true, PRINT all this, and go on to the next statement on this line.^^ 

20 IF X<0 THEN PRINT ’’CONDITION TRUE:”; X; ”< 0” : GOTO 10 


GOTO Line 10 and 
continue RUNing 
the program. 




If the condition is false, go on to 
the next line numbered statement, 
and forget the rest of this line. 


NEW 



Use 


5 REM-COMPARE AND DECIDE 
10 READ X 

20 IF X<0 THEN PRINT "CONDITION TRUE:"; X; 

30 PRINT "CONDITION FALSE:"; X; "IS NOT < 0" 
40 DATA 4^ <d, e* -2# 7# 9* -12 

RUN 

IS NOT < 0 
IS NOT < 0 


For most keyboards: 

< 

Use and together for "less than" 

Use and together for "greater than" ^ 

and together for "equal to" 

^ < = 

>= 

<> 


IF X IS LESS THAN ZERO 


"< 0" : GOTO 
: GOTO 10 


10 


CONDITION 

CONDITION 

CONDITION 

CONDITION 

CONDITION 

CONDITION 

CONDITION 

CONDITION 


FALSE: 4 
FALSE: 0 
TRUE:-3 < 0 
FALSE: 6 IS NOT 
TRUE:-2 < 0 
FALSE: 7 IS NOT 
FALSE: 9 IS NOT 
TRUE:-12 < 0 


< 0 

< 0 
< 0 


?0D ERROR IN 10 


The computer has ODed 
It means Out of Data error, 
but don't worry about it. 


And, of course, somebody's gotta be 
different, and it's the Northstar-style 
BASICS this time. If a comparison is true, 
these BASICS go on to the next statement, 
whether it isttse next line numbered 
statement, or another statement past 
IF .. . THEN in the same multiple 
statement line. Check page 74 for the 
techniques that this BASIC requires, then 
return here. 


5 REM-COMPARE AND DECIDE IF X IS 
10 READ X 

20 IF X»>0 THEN PRINT "CONDITION 
30 PRINT "CONDITION FALSE:"; X; 
40 DATA 4# 0/ -3> 6* -2.» 1* - 

RUN 

CONDITION TRUE: 4 «> 0 
CONDITION TRUE: 0 ■> 0 
CONDITION FALSE:-3 IS NOT ■> 0 
CONDITION TRUE: 6 »> 0 
CONDITION FALSE:-2 IS NOT ■> 0 
CONDITION TRUE: 7 »> 0 
CONDITION TRUE: 9 »> 0 
CONDITION FALSE:-12 IS NOT «> 

?0D ERROR IN 101 



EQUAL TO OR GREATER THAN ZERO 

TRUE:"; X; "»> 0" : GOTO 10 
"IS NOT »> 0" : GOTO 10 
12 



Same error message saying the computer 
tried to READ another value for X after 
all the values in the DATA statement had 
been used once. In this case, it isn't 
really an error. In fact, we can use it as 
a convenient way of stopping the com¬ 
puter after all the work is done. 67 








NEW 


Rales poR cont^itioos — 

LObat can Be comparzeol 

We have talked about how the IF...THEN statement works in general. 
Now let's look at just the comparison or condition itself to see what 
can be compared. 



10 X»5 I Y«20 

20 IF 2^X=Y/2 THEN ? "TRUE" 

RUN 

TRUE 

Because of the way the computer does arithmetic (not like 
you and me, for sure), very small inaccuracies sometimes 
result from its calculations, which may show up as, say, 
49.000001 or 48.999999, where you would have expected 
a computed result of 49 even. Thus we must caution you 
about using comparisons for equality in IF . .. THEN 
statements, especially when the comparisons are niade 
between calculated values. It's not your programming, it's 
the machine. And here I bet you thought the computer 
was as accurate as it is fast! 





20 IF 2*X»Y/2 THEN ? "TRUE" 

// 


The two items to be compared 
can be values, variables, or 
expressions to calculate. They 
can also be two strings to be 
compared. 


The short form for entering 
PRINT, using the question 
mark, also works for the word 
PRINT in IF...THEN PRINT. 






The I F...THEN family of statements can also compare strings. As a demon¬ 
stration, we will use a simple comparison: is a string read from the DATA 
statement equal to the string "YES"? If it is, then the comparison is true. 
You'll learn how to use the other five comparisons with strings later on. 

For now, try the program below. 


Include a DIM statement 
for string variables 
if your BASIC requires it. 


5 REM-COMPARE AND DECIDE IF X$ STRING IS EQUAL TO "YES" 

10 READ XS 

20 IF X$»"YES" THEN PRINT "CONDITION TRUE*"; X$; " » YES" * GOTO 10 

30 PRINT "CONDITION FALSE*"; X$; " DOES NOT • YES" * GOTO 10 

40 DATA YES/ NO/ MAYBE/ YES/ NO/ MAYBE c.o ,, 0^0 1 oq w o., 

bee page 1tor an 


RUN 

CONDITION TRUE*YES « YES 
CONDITION FALSE*N0 DOES NOT = YES 
CONDITION FALSE*NAYBE DOES NOT • YES 
CONDITION TRUE*YES ■ YES 
CONDITION FALSE*N0 DOES NOT ■ YES 
CONDITION FALSE*MAYBE DOES NOT » YES 


?0D ERROR 
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Using error conditions to end a program 
IN 10 pui^ jj rather rude, and we'll outgrow 
this poor programming practice pretty 
promptly. 


elaboration of this technique. 





















TEST AND DECIDE 



The next program has three IF...THEN PRINT statements to test the 
same value up to three times. There are three different conditions to test. 
Notice the multiple statements in lines 20, 30, and 40. When the IF... 
THEN PRINT condition is false, the computer skips to the next line 
numbered statement, and ignores any other statements following the 
false IF...THEN on the same line. But if the IF...THEN PRINT condition 
is true, then the rest of the IF...THEN PRINT statement is executed, 
as well as any statements that follow it on the same line. 



ipipipipipitfipipilfipipipiliipipipipiililiipip 

IF THEM ? » IF ... THEM PRIMT 


5 REM- NEGATIVE^ POSITIVE AND ZERO NUMBER TESTER 


10 
20 
30 IF 
40 IF 
RUN 
INPUT 
YOUR 


INPUT "INPUT 0 (ZERO) OR ANY NEGATIVE OR 
IF N<0 THEN ? "YOUR NUMBER IS NEGATIVE." 
N>0 THEN ? "YOUR NUMBER IS POSITIVE." 
N»0 THEN ? "YOUR NUMBER IS ZERO." : ? 


POSITIVE 
: ? s GOTO10 
j ? : goto 10 
: GOTO 10 


N 


0 (ZERO) 
NUMBER IS 


OR ANY NEGATIVE 
POSITIVE. 


OR POSITIVE NUMBER? 8975 


INPUT 0 (ZERO) OR ANY NEGATIVE OR POSITIVE NUMBER? -384 
YOUR NUMBER IS NEGATIVE. 


INPUT 0 (ZERO) OR ANY NEGATIVE OR POSITIVE NUMBER? 0 
YOUR NUMBER IS ZERO. 


INPUT 0 (ZERO) 



OR ANY NEGATIVE OR POSITIVE NUMBER? 

Use CONTROL/C 
to get out of a RUN when 
the program is stopped 
at an INPUT statement. 


Let's take a closer look at one of the IF ... THEN PRINT statements. 


PRINT a blank line 
(between loops in 
the RUN). 

If the condition is trc/e, PRINT the string, and go on to the next statement. 

20 IF N<0 THEN ? ••YOUR NUMBER IS NEGATIVE^** : ? : GOTO 10 


If the condition is fa/se, go on to the 
next line numbered statement, and 
forget the rest of this line. That means 
don't do anything following THEN. 


GOTO line 10 and 
continue RUNning 
the program. 
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WtiAT IS ft FILTER? 




READ 


The next program is similar to the last one. However, notice that the 
conditions tested are comparisons of the two INPUT values X and Y. 
This sort of subroutine is used in many programs to check for various 
things (make several comparisons) about data or inputs. It's almost 
a game oroaram. 



NEW 


We have the computer ask for two 


5 REM-COMPARISON OR ’’FILTER" PROGRAM ^ values, and to assign one to Yand 
10 INPUT "INPUT ANY TWO NUMBERS"; ^ the other for Z. 

20 IF Y<Z THEN ? Y; "IS LESS THAN ’’; Z 

30 IF Y>Z THEN ? Y; "IS GREATER THAN "; Z 

40 IF Y»Z THEN ? Y; "IS EQUAL TO "; Z 

50 ? - PRINTS nothing, leaving a blank 

60 GOTO 10 line between loops. 


RUN 

INPUT ANY TWO NUMBERS? 8/53 
8 IS LESS THAN 53 


•The INPUTS must be separated 
with a comma. 


INPUT ANY TWO NUMBERS? 2001/1999 
2001 IS GREATER THAN 1999 


INPUT ANY TWO NUMBERS? -12/-33 
-12 IS GREATER THAN -33 


Correction with is OK when 
entering an INPUT, but once 
you've pressed RETURN ... 


INPUT ANY TWO NUMBERS? 81/81 
81 IS EQUAL TO 81 



Hold down the CONTROL key 
and type C, then hit RETURN 
to get out of a RUN when 
the program is stopped 
at an INPUT statement. 


INPUT ANY TWO NUMBERS? 



After the INPUT question mark, did you remember to separate your INPUT 
values with a comma? 

Note that the computer compares the values of Y and Z three times, whether 
it has to or not. Compare this with the NEG, POS, ZERO NUMBER TESTER 

In the filter (it filters through the possibilities, get it?) part of the program 
(Lines 20, 30 and 40), the computer only does what the IF statement says to 
do (PRINT) if the comparison is true. 
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Jo Pfiot Of Hot Jo Pfiot' 

Ttmt is the (tuest/M 



Now please pay close attention to these next little programs using the 
IF...THEN statement. Line 20 is used to decide whether to PRINT a 
value or not. When the condition is false, the computer skips on to the 
line 30 PRINT statement and PRINTS the value of R. But when the 
condition is true, the computer ibranc/7es back to line 10. It does not 
get to line 30, and therefore it doesn't PRINT. Instead, a new value is 
assigned to R from the DATA. Then the new value is tested by line 20. 
And so on. 

At first, this may seem backwards to you. Just remember that the action 
indicated after THEN only happens/Y condition is true. Now go ahead 
and try the programs. 



NEW 

5 REM-DON'T PRINT 
10 READ R 
20 IF R<0 THEN 10 
30 ? “R R 
40 GOTO 10 
50 DATA 4« 0« 

RUN 
R » 4 
R « 0 
R » 6 
R » 7 
R * 9 



TOD ERROR IN 10 



The computer has ODed again. 
Still not to worry... 


Now change the condition by replacing Line 20. (Leave out the REM if 
you want to.) 


5 REM-DON’T PRINT NUMBERS GREATER THAN ZERO 


20 IF 
RUN 


R>0 THEN 10 


R 

R 

R 

R 


■ 0 
»-3 
a-2 
— 12 


700 ERROR IN 10 


Same error message saying the computer 
tried to READ a value for R after all the 
values in the DATA statement had been 
used once. 




READ 


The computer can be instructed to READ the same data from DATA state¬ 
ments more than once (provided that the Out Of Data error condition has 
not stopped the RUN). Use the RESTORE statement like this: 

120 RESTORE 

It tells the computer to begin READing data again from the beginning of the 
first DATA statement. 
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Below is a trace for part of the RUN for the first I F...THEN example 
program on the last page. The condition tested is R < 0 (R less than 0) 
The effect is ''Don't Print Numbers Less Than Zero." Go through this 
trace to see the decisions made by the computer: To Print or Not To 
Print. 


STATEMENT VARIABLES & VALUES DESCRIPTION 


5 REM-DON’T PRINT NUMBERS LESS THAN ZERO . The computer skips REMarks. 


10 READ R 


First item from Line 50 DATA 
is assigned to READ variable R. 


20 IF R<0 THEN 10 



30 PRINT ••R R 
40 GOTO 10 

10 READ R 

20 IF R<0 THEN 10 

30 PRINT •♦R *«; R 
40 GOTO 10 
10 READ R 

20 IF R<0 THEN 10 



1 ^ 

1« 

[ 4 

?J 

Lo 




R 

0 

R 

0 

±1 

L-3 


^ 1 

I -3 


10 READ R 



The computer compares the value 
in R to 0 (zero). Since 4 is not 
less than 0, the condition is false 
and the computer goes on to the 
next line. 

Value of R is PRINTed. 

Computer goes back to Line 10. 

Next value from 50 DATA 
assigned to R. 

0 is not less than 0, so the condition 
is false. Moving along to the next 
line ... 

the value of R is PRINTed. 

And back we go to Line 10 ... 

Third Item from 50 DATA. 

Well, this time the value of R = —3, 
which is less than 0 (the condition 
is true) so the computer follows 
the rest of the IF ... THEN statement 
instructions, and loops back to 
Line 10, skipping the PRINT state¬ 
ment in Line 30, etc. 

New value for R. 


50 DATA 4/ Zs -3^ 6^ -2/ 7# 9^ -12 


Line 10 READs DATA from line 50. 


Technically, this process is called conditional branching. If a condition is 
true, the computer branches to another part of the program. 

IF the condition is true, the computer does what the rest of the statement 
tells it to. But IF the condition is false, the computer ignores the rest of the 
IF ... THEN statement and goes right on to the next line numbered statement 
in the program. 
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stop the loop! 


This is the condition 


Line number 



♦ 

30 IF T<10 THEN 




I 

Go on to the next line numbered 
statement if the condition is false. 
That means go to the next statement 
with the smallest line number greater 
than 30. 


Do what this says if the condition 
Ktrue. In this case, go to the 
statement with this line number. 


Now enter and RUN this program to stop a loop after a certain number 
of times, using the I F...THEN statement to do the checking. 


NEW 


5 REM-SELF-STOPPING COUNTING PROGRAM 
10 ? T 
20 T*T+I 

30 IF T<10 THEN 10 

40 ? "NOW T T; "SO I stopped myself." 



Our IF statement (Line 30 above) asks the profound question, "Is the value 
of T less than 10?" When the answer is "true," THEN 10 tells the computer 
to branch or loop back to Line 10. But when the answer to the profound 
question is "no" (when the value of T finally reaches 10), the computer ignores 
the rest of the IF statement and "falls through" to the next line in the pro¬ 
gram (Line 40). 
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IF...THEN...ELSE... 

Now we present the double-threat version of IF . . THEN that covers all bases. Users of 
Northstar-style BASICs take special note. Since many versions of BASIC have ELSE in their 
vocabulary, everybody should check this out (and experiment, of course). 

How does it work? It's rather simple, really. 


Action if the 
comparison is true. 




Action if the 
comparison is false. 


( line no.) IF (comparison) THEN (statement) ELSE (statement) 

^ ^ ^ 


If the condition ... THEN do this.or ELSE do this, 

is true ... IF the condition 

is false. 


This extended form of the comparison statement allows you to specify two different actions 
to take; one if the comparison is true, or ELSE a different action if the comparison is false. 
In the Microsoft-style examples on pages 67, 68 and 69, a GOTO statement at the end of a 
multiple statement line is executed if the comparison is true, but not executed if the 
comparison is false. 


20 IF X<0 THEN PRINT “CONDITION TRUE X; ” < O" : GOTO 10 

Northstar-style BASICs will execute that GOTO statement \n either case', comparison true 
or false. But ELSE lets you control the action after a false comparison. To avoid the 
incorrect execution of the tail-end GOTO in line 20, modify the example program on page 
67 like this. 


If the condition is true . 


10 

20 


READ X 
IF X<0 


condign 

w 


THEN PRINT 


... THEN execute this part... 

w 

"CONDITION TRUEs "5 X; 


. . 



• I 


... and this,^o! 

w 


< O" EL 


0 


O ! GOTO 10 


IF the condition is false, 
then (goto) line 30. This forces 
the computer to skip the 
GOTO 10 statement at the end 
of the multiple statement line, 
and to go directly to line 30. 


Notice the line number following ELSE. The GOTO in . . . ELSE GOTO 30 is omitted, just 
as a line number after THEN is understood to mean "branch to" or GOTO. 


30 PRINT "CONDITION FALSEs X; " IS NOT < O" : GOTO lO 
40 DATA 4, O, -3, 6 , -2, 7, 9, -12 


Go ahead and RUN it. Another example of the IF .. . THEN ... ELSE way of doing things 
appears on page 93. 
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ANJy azid/or OR. in IF...TURN' 


The double-threat actions of IF . .. THEN ... ELSE have a counter-part on the comparison 
side of an IF ... THEN statement. The logical AND and logical OR allow more than one 
comparison in the section between IF and THEN in a conditional branching statement. Here 


is the format. 

(line no.) IF (comparison) AND (comparison) THEN (action) 


( VERY LOGICAL! ) 


Two separate comparisons, joined 
by logical AND, and both comparisons 
must be true for the action after 
THEN to be executed. 

10 IF B >= 1 AND B <= 10 THEN ? 


An application of this 
IF... AND... THEN 
format is on page 123. 


^ f 

If both of these 
comparisons are true ... 



/ 


(line no.) IF (comparison) OR (comparison) THEN (action) 

T' 

Two separate comparisons, joined by 
logical OR, and if either one is true, 
the action after THEN will be 
executed. Also, if both comparisons 
are true, the action after THEN is 
executed. 

10 IF M < 1 OR M > 10 THEN ? "NOT FROM 1 TO 10" 


Each comparison must be complete. Two values (or numeric variables assigned values) or 
two strings (or string variables) must be specified for each comparison to be made, even 
if the same variables are used in the two different comparisons joined by AND or OR. 
Check the examples above. 


10 IF M 

Complete 
comparison. 



10 THEN ? "NOT FROM 1 TO lO* 


fV Incomplete 
comparison: 

>^Sit doesn't tell 
^ what 10 is compared to. 


Wanna get fancy? You can string a bunch of comparisons together with AND and/or OR. 
For example: 


(line no.) IF (comparison) AND (comparison) OR (comparison) THEN (action) 


\ 


If both of these 
are true ... 




... or if this 
is true ... 


♦ 


♦ 


... then take 
action! 


But watch out; you must be very, very careful of your logic when getting this sophisticated ... 
and complicated! Stay tuned for more exciting decisions with IF-THEN later in this broadcast. 
(An example of this IF ... AND .. . OR ... THEN format is demonstrated on page 128.) 


>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
There is another dimension to comparisons (and to arithmetic, too) that involves formal 
mathematical logic beyond the scope of this introductory book (actually, beyond the scope 
of the author). If you hope to use computer programs to operate and control other devices 
In the home, factory, or laboratory, and especially if you have a math background, this 
aspect of BASIC will be of interest. You are hereby referred to your system's reference 
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WHO'S ON FIRST? 


Earned Run Averaser 








160 IF P > 9 THEN LET R = R / 9: LET P = P / 9s GOTO T60 
NEW 


ERA (BASEBALL EARNED RUN AVERAGE CALCULATOR) 
"WHAT IS THE PITCHER’S NAME? ";N* 

"I WILL CALCULATE THE EARNED RUN AVERAGE" 
"(ERA) FOR ";N*;"." 

"THE NUMBER OF INNINGS THAT ";N* 

"HAS PITCHED MUST BE TYPED WITH" 

"’THIRDS’ OF AN INNING ENTERED LIKE THIS: 
PRINT "ONE THIRD (1/3) OF AN INNING = .33" 

PRINT "TWO-THIRDS (2/3) OF AN INNING = .66" 

PRINT "EXAMPLES 4 AND 1/3 INNINGS" 

PRINT "SHOULD BE ENTERED AS 4.33" 

PRINT N*;" HAS PITCHED "; 

INPUT "HOW MANY INNINGS? ";P 
PRINT N*;" HAS GIVEN UP "; 

INPUT "HOW MANY RUNS? ";R 
IF P > 9 THEN LET R = R / 9s LET P 
LET P = 9 / P 

PRINT "EARNED RUN AVERAGE FOR "jN*; 


10 REM 
20 INPUT 
30 PRINT 
40 PRINT 
50 PRINT 
60 PRINT 
70 PRINT 
80 
90 
lOO 
110 
120 
130 
140 
150 
160 
170 

180 PRINT "EARNED RUN AVERAGE FOR "jN*;" IS 
RUN 

WHAT IS THE PITCHER’S NAME? LEFTY 
I WILL CALCULATE THE EARNED RUN AVERAGE 
(ERA) FOR LEFTY. 

THE NUMBER OF INNINGS THAT LEFTY 
HAS PITCHED MUST BE TYPED WITH 
’THIRDS’ OF AN INNING ENTERED LIKE THISs 
ONE THIRD (1/3) OF AN INNING = .33 
TWO-THIRDS (2/3) OF AN INNING = .66 
EXAMPLES 4 AND 1/3 INNINGS 
SHOULD BE ENTERED AS 4.33 
LEFTY HAS PITCHED HOW MANY INNINGS? 7.33 
LEFTY HAS GIVEN UP HOW MANY RUNS? 2 
EARNED RUN AVERAGE FOR LEFTY IS 2.45566166 
RUN 

WHAT IS THE PITCHER’S NAME? TOMORROW 
I WILL CALCULATE THE EARNED RUN AVERAGE 
(ERA) FOR TOMORROW. 

THE NUMBER OF INNINGS THAT TOMORROW 
HAS PITCHED MUST BE TYPED WITH 
’THIRDS’ OF AN INNING ENTERED LIKE THISs 
ONE THIRD (1/3) OF AN INNING = .33 
TWO-THIRDS (2/3) OF AN INNING = .66 
EXAMPLES 4 AND 1/3 INNINGS 

SHOULD BE ENTERED AS 4.33 _ 

TOMORROW HAS PITCHED HOW MANY INNINGS? 42.6^ 
TOMORROW HAS GIVEN UP HOW MANY RUNS? 11 
EARNED RUN AVERAGE FOR TOMORROW IS 2.32067511 




= P / 9s GOTO 160 


"sP * R 






76 














Flags and Stop Signs for INPUT Entry Loops 


Assigning values or strings to variables is often done using the INPUT statement in 
a GOTO loop. This technique requires a way to inform the computer that you 
have finished entering data (making entries), and that the rest of the program 
beyond the GOTO loop is to be executed. The method uses a code word or value, 
also called a flag (as in "flagging down the bus"). An IF ... THEN statement 
checks each INPUT variable assignment (every entry) to see if the flag or code 
word was entered. If a match for the code or flag is found, the IF... THEN 
statement causes the computer to brancl^out of the GOTO loop containing the 
INPUT statement(s).| 





40 IF H = ~ 99 THEN 80 


■ The flag checker 
I (not the checker flag. Indy fans.) 



NEW 



5 REM — 

FI 

10 

PRINT 

"1 

20 

PRINT 

“i 

30 

INPUT 

"I 

40 

IF H = 


50 

LET T 

= 

60 

LET C 

= 

70 

GOTO 30 

80 

PRINT 


RUN 




I 

I 

I 

I 

4 . 


Forcing people to use CONTROL/C to end a RUN 
of your "real life" programs is definitely grat/c/?©. 
More tasteful programming etiquette requires giving 
the people using your program the flag option, or, 
for string entries, one like this: 

10 ? "WHEN FINISHED, TYPE "STOP’" 
20 INPUT "YOUR ENTRY? E*/^ 

30 IF E* = "STOP" THEN END 

^ Thinks 


flag 


BY IF...THEN 




!>TA, ENTER -99* 
AVERAGE." 


WD I WILL CALCULATE THE 
HEIGHT IN INCHES?";H 
- 99 THEN 80 

T + 1 - Line 50 keeps track of the/7t/An/!jer of enfr/es. 

C + H ■“ Line 60 keeps a running total of all data entered. 

WERAGE HEIGHT IS ";C / T 


WHEN FINISHED ENTERING DATA, ENTER -99 
AND I WILL CALCULATE THE AVERAGE. 
HEIGHT IN INCHES?40 
HEIGHT IN INCHES? 50 
HEIGHT IN INCHES?46 
HEIGHT IN INCHES?48 
HEIGHT IN INCHES? 45 
HEIGHT IN INCHES? 52 
HEIGHT IN INCHES? 41 
HEIGHT IN INCHES?44 JTieflag 

HEIGHT IN INCHES745 
HEIGHT IN INCHES?-99 
AVERAGE HEIGHT IS 45.6666667 









77 





































IF . . . THEN or IF . . . THEN GOTO or IF .. . GOTO 

Causes program to jump or branch if the relation is true. Otherwise 
the program continues to next line numbered statement. 

line no. IF (condition) THEN (line no.) or statement 
10 IFX>10THEN50 

10 IF X>10 THEN PRINT “NUMBER IS LESS THAN 10” 

10 IF X<10 THEN PRINT “ERROR” : X = 0 : GO TO 50 

10 IF A$ = “YES” THEN PRINT “GOODBYE FOR NOW” : END 

IF GOTO is acceptable but must be followed by a line number. 

THE IF...THEN FAMILY 

IF...THEN (GOTO) the GOTO may be omitted in most BASICs. 
IF...THEN PRINT or IF...THEN ? 

IF...THEN (LET) the LET may be omitted 
IF...THEN INPUT 
IF...THEN READ 
IF...THEN GOSUB 
IF...THEN RETURN 
IF...THEN STOP 
IF...THEN END 

More than one complete comparison may 
be used between IF and THEN when 
linked by logical AND or logical OR. 

BASIC PLUS has == which means “approximately = to.” 



CHAPTERS PROBLEMS 


1. In an IF-THEN statement, if the condition is FALSE the program 


2. In the statement IF X<>Y THEN 100, the test or comparison is to see if the 

values assigned to the two variables are_ 

3. IF X <= Y THEN 100 is testing to see if the value of X is_ 

the value of Y. 


4. Here is a program to search through a data list and print all the numbers 
over 100. What is wrong with the program? (a)_ 

10 READ A /uj 

20 IF A > 100 THEN 30 ' '-- 

_ 30 GOTO 10 

78 40 DATA 12, 112, 30, 230, 400, 24 




























5. 


In this era of energy shortage and water drought, we on the West coast are becoming 
extremely conscious of energy consumption and would like to share our ideas with 
you (your turn is coming!). In terms of water, we know the facts and figures and 
many families measure water in terms of flushes per day and things like that. Below is 
a table of average consumption of various activities. Your exact figures will likely 
be a bit different and we encourage you to change the table to suit you. Use the 
table and your handy computer to write a program to compute the average amount 
of water used by your family per month in cubic feet and in gallons of water. 

(1 cubic ft. = 7.5 gal.) Use INPUT statements to enter the variables, and DATA 
statements to contain the constants (from the table). 


This may be a long program, but it really isn't that difficult. Your output statements 

chniilH lnnl<- likp thic- PRINT''Y0U USE APPROX. T;”GALL0NS / MONTH OR ";T/7.5; "CUBIC FEET" 

bliuuiu lUUl^ IIKC uilb. pjiint-THAT is AN AVERAGE OF T/30i "GALLONS PER DAY" 


shower. 6 gallons/minute tub bath ....20 gallons 

dishwashing.15 gallons dishwasher. .16 gallons 

toilet flush. 6 gallons (check yours) 

outdoor watering...average hose washing 

10 gal./minute machine....35 gallons 

various.you guess/day 30 ^ ^^^a 6 , 20 . 15 . 16 . 6 . 35.10 


6 . 


7. 


8 . 


Once the program works, you can change data (reduce flushes, showers, 
etc.) and see how much water you can save. 


Compute your water bill! 

You attempted to compute your water usage for the month in gallons. 
Now for the bad news, the bill. 

Assume everyone pays a meter fee of $2.85 per month and that water is 
billed by the cubic foot (remember: 7.5 gallons per cubic foot). 

Write a program to compute your water bill if you are charged $0.50 per 
100 cubic feet used. Enter usage in gallons (don't forget to add the meter 
fee). For 6000 gallons the answer is $6.85. 10,000 gallons = $9.52 

and 20,000 gallons = $16.18. 

Using the data from Problem 5 above, let's assume the water company 
starts to penalize large users by charging more for water used in excess 
of some 'normal' amount. Let's assume a family of four is allowed 
8000 gallons per month and is charged $0.50 per 100 cubic feet for 
those 8000 gallons (plus the meter fee). For any gallonage over 8000, 
the charge is $1.00 per 100 cubic feet. Write a program to compute the 
water bill under this system (it could happen ...). 



Sell computer time to a neighbor ... for fun and profit! You'll need 
a timeclock of some sort and a computer program to do the calculations. 
Charge $2.00 just for the privilege of using the system plus $0.05 per 
minute for the first 45 minutes and $0.03 per 100 minutes used. 

45 x .05 = 2.25 
(100-45) X .03= 1.65 
connect fee = 2.00 


Total = $5.90 

Tip: What if the user uses less than 45 minutes. Don't forget to'program' 
for that possibility. 

9. String comparisons: You have a huge customer list of 4000 names 
contained in DATA statements with names and zip coded expressions 
in two different strings. (Why did we place zip codes in string variables 
instead of numbers?) 

Sample DATA statement: data marcus. 9 ^ 025 . linda. 94061 . jerry. 9a06i.larry.065a2 

You are about to travel to zip code area 94061. Read through the names m 

your DATA statements and select and print only those names in zip 

area 94061 so you will know whom to call on while you are in the area. 79 










BASIC includes some "automatic" features called functions. Sometimes 
these functions are like formulas or equations for doing certain kinds of 
things to numbers or strings. A complete list of functions is on page 158. 

Our first BASIC function is the SQR(x) function. This is the SQuare Root 
function. It tells the computer to find the square root of whatever value 
is enclosed in the parentheses. 



SQUARES AND SQUARE ROOTS EXPLAINED 


The square of a number is that number multiplied by itself. For 
example, 

9 time 9 = 81 Same as 9^ (nine squared) or 9f 2 in BASIC 
81 is the square of 9. 

It works the other way too. The square root of a number is another 
number which, multiplied by itself, gives the first number. For example, 
9 is a square root of 81 because 9*9 = 81. In math books they write it 
like this: 


—9 is also a square root of 81 because (—9)*(—9) = 81. However, BASIC 
only computes the non-negative square root. 


The square root of 9 is 3 because 3 times 3 equals 9. 

You can only find the SQR of positive numbers, not negative numbers, 

As you will see, the square root of a number is not usually a whole 
number like 3, but is more often a number with a fraction. 
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Use direct mode to experiment with the SQR{X) function. Try the examples 
below and try your own ideas. 



? SQR(l), SQR(2), SQR<3), 
1 1.41421 



SQR<4> 

1.73205 



inside the parentheses 
is called the argument 
of the function— 
but let's not squabble. 


? SQR<5); 
2.23607 


SQR<6); SQR(7); SQR(8); SQR(9); S0R<10) 
2.44949 2.64575 2.82843 3 3.16228 



Now, still using direct mode, try to make BASIC find the SQR of a negative 
number. 

? SaR<“25) 


?FC ERROR 
? SQR(100> 



See, I told you so, BASIC tells you that 
you are misusing a Function. 

"FC ERROR" means "Function Error" 

BASIC feels abused when you misuse 
a function. The error messages differ 
from one version of BASIC to another, 
but apparently BASIC doesn't like to 
compute square roots of negative numbers. 


Next, try some calculations that include the SQR function. 


? 5*SQR(9) 
15 


? 5*<10+SQR(9) 
65 



Don't forget to keep your parentheses paired, 
a right parenthesis for each left parenthesis, 
or BASIC will lay a syntax error message on you. 


X*7 % Z»SQR<X) : ? 2 
2.64575 


81 

































Do your own experimenting, and then try these programs. 


NEW 


10 X»7 
20 Z»SQa<X) 
30 ? Z 
RUN 

2.64575 



NEW 


10 INPUT A 
20 ? a; SQR(A) 

30 7 : GOTO 10 
RUN 
? 225 
225 15 

? 33 

33 5.74456 

Did you use 
CONTROL/C, then 
hit RETURN? 


NEW 








5 REM-SQUARE ROOT MACHINE 

10 ? "GIVE ME A NUMBER AND I WILL TELL YOU THE SQUARE ROOT." 
20 INPUT "NUMBER PLEASE"; A 

30 ? "THE SQUARE ROOT OF"; A; "IS"; SQR<A) : ? s GOTO20 
RUN 

GIVE ME A NUMBER AND I WILL TELL YOU THE SQUARE 
NUMBER PLEASE? 7 
THE SQUARE ROOT OF 7 IS 2.64575 

NUMBER PLEASE? 1444 
THE SQUARE ROOT OF 1444 IS 38 

NUMBER PLEASE? 



Crank ‘em out. . . 
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tells the computer to find the integer part of a positive number. 
The integer part of a number is the whole number part without 
the decimal fraction, like this: 

INT(5.6) = 5 The integer part of 5.6 is 5. 


integer part of the numbers in the I NT parentheses, using direct mode. 



? INTO. 1> 
3 


? INTO.9999)/ INT<101.1)/ INTO. U159) 
3 101 3 


Now try negative numbers. The I NT function returns the next more negative 
integer. INT(—5.6) =-6. The integer part of-5.6 is-6. 


? INTCS.l)/ 1NT(-5.1)/ I.NT(5.9999)/ INT<-5.9999> 
5-6 5-6 



See the difference ii 
way the I NT works 
a negative number i 
compared to a positive 
number? 



Find the integer part of the square root of 52. 


7 SQR<52)^ 
l.ZXW 


1NT<SQR<52)) 
7 



Note the clever use of a function inside the 
parentheses of another function. Again 
BASIC starts on the inner most set of 
parentheses and works out. Don't forget 
to match each left parentheses with a 
right parentheses. 
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ROUNOINC OFF USING INT 



It is often convenient to round off a calculation, rather than just chopping 
off the decimal fraction. Rounding off a number means that the number 
becomes the integer part if the decimal fraction is less than .5 (one half), 
that is, 5.4 becomes 5. 

If the decimal fraction part of the number is .5 or greater, then the number 
is rounded off to the next higher integer, that is, 5.6 rounds off to 6. 

Here is how you use the INT function to round off a number. 


INT(X + .5) 


INT(5.4 + .5) = 5 
INT(5.6 + .5) = 6 


(5.9 without the .9) 
(6.1 without the .1) 


RUN this program to round off the positive numbers in the DATA statement. 


NEW 


5 3EM-NUM3ER ROUNDER OFFER 
10 READ X : ? X# INT<X+.5> 


i GOTO 


20 DATA 3.14159/ 
RUN 


101.888/ 521.999. 


10 

521 


001/ 521.5 


3.14159 

3 

101.883 

102 

521.999 

522 

521.001 

521 

521.5 

522 


?0D ERROR IN 10 ^ Don't worry, it's just the Out of Data message. 

ROUNDING OFF MONEY 



The example problem: Calculate the sales tax on an item that cost $17.95 
and the tax rate is 6%. Round off the results to the nearest whole penny. 

$17.95 X. 06 = $1,077 

(1) Multiply the amount to be rounded off by 100. This moves the decimal 
point two place to the right. 



1.077 X 100= 107.7 

Add .5 to the number, as the rounder offer. 

107.7+ .5= 108.2 

Take the integer part of this value. 

INT(108.2) = 108 

Divide by 100 to move the decimal point back to its original position, 
two places to the left. 

108/100 = 1.08, so we have $1.08 as the sales tax on $17.95, rounded off 
to the nearest whole penny. 





Now let's have the computer do the problem. Note that we instruct the 
computer to PRINT the value of M after each step of the rounding off 
process, just to help us see how the process works step-by-step. 



DO IT 


Cjilo 

Q _I I_ 9 

0 \ READ )0 

<r~j 

cr^b 


NEV 


10 

M» 17 . 95 * 

.06 t ? 

20 

M=M *100 

S ? M 

30 

M«M +.5 : 

? M 

40 

M*INT<M) 

s ? M 

50 

M»M /100 

: ? M 

RUN 



M 


1*077 ^ 1 The calculated value to be rounded off. 

107*7 The decimal place moved two places to the right. 
1 0 8 * round off constant (.5) added on. 

108 decimal fraction chopped off. 

1*08 The decimal point returned to its rightful place, 
two places to the left, giving us even money. 




The same results may be accomplished in one statement. (You can use 
direct mode seeing as it is a one line instruction.) 


? IMT< 17 * 95 ^* 06 ^ 100 >* 5)/100 
|l *08 

' ^ ^ A 

►The calculation of tax a ^Add round-off constant ^ 
M Move the decimal point ■ 

Take the INTeger part of the result of I 



^Take the INTeger part of the result of 
^ the calculations inside the parentheses. 


nLast step is to divide by 100 to move the decimal 2 places 
^to the left, where it should be. 


Remember this example to use in your own computer programs. Use I NT 
for rounding off calculations involving dollars and cents — 

N£V 


10 M= 17 . 95*.06 
20 ? INT<M* 100 +. 5>/100 
RUN 
1.08 




M can be the result of calculations, or it can 
be a value calculated earlier in the program. 
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READ 



Let's use the I NT function to do "long division" problems. Remember long 
division? Or did you learn new math? 



19 — q uoti ent 

divisor 5 )97 — dividend 
5 _ 

47 

_45_ 

2 remainder 


Now get the computer to do it for you. First, the problem: A divided by B, 
A/B (or bJX ) where A = 97 and B = 5. 

NEW 


5 ?IEM-L0NG DIVISION CRANKER OUTER 
10 A® 97 * 5 ^Values of A and B assigned in this line. 

20 Q= INT( A/3) ^The Quotient: the number of complete times B goes into A (5 goes into 97).t 
30 R'A'B’I’Q — Line 30 gets the Remainder: what's left over from A when you divide by B. 97—(5*19). 

40 ? "QUOTIENT Q : ? "REMAINDER R Did you notice the neat way we did this? 

RUN 

QUOTIENT » 19 
REMAINDER » 2 

f Note: Line 20 actually calculates the result 
with a decimal fraction, which INT chops off. 


Try it with your own values, by replacing Line 10 and adding Line 60. 

10 INPUT "A ="; A J INPUT "DIVIDED BY"; B 

60 ? s GOTO 10 

LIST 


5 REM-LO.NG DIVISION CRANKER OUTER 
10 INPUT "A ="; A s INPUT "DIVIDED BY"; B 
20 Q»INT<A/B) 

30 R=A-B^Q 

40 PRINT "QUOTIENT *"; Q s PRINT "REMAINDER ■"; R 
60 PRINT s GOTO 10 


RUN 

A =? 97 
DIVIDED BY? 5 
QUOTIENT » 19 
REMAINDER * 2 

A *7 2435 
DIVIDED BY? 14 
QUOTIENT = 173 
REMAINDER » 13 



Crank ‘em out! 
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READ 



0 


The third function we want you to learn is the RND( ) function. Random means that 
something happens just by chance. It's like picking numbers out of a hat. The RND 
function is tricky. When you instruct the computer with the RND function, it gives you 
a random number (that looks like a decimal fraction) between zero and one. Never 0, 
never 1, always between, my friend. If the RND number (the decimal fraction) is very 
small, that is, very close to zero, it may be printed in floating point notation. 

The number, variable, or calculation found in the parentheses of these functions is 
often referred to as the expression, parameter, or argument for the function . . . wanna 
fight about it? There are three types arguments that may be used in the parentheses 
for the RND ( ) function, for three different effects in most Microsoft-style BASICS. 

If your BASIC doesn't seem to follow our patterns in the RUNs, see page 89. 

You could do the CONTROL/C operation to stop the loop immediately after you type 
RUN and hit RETURN, or use the Press RETURN To Continue technique (page 50). 
Change GOTO 20 to GOTO 15, and insert this statement: 15 INPUT R$ 


RNDW i RND(0)i RNDGO 



RND argument is positive. 


Zero for the RND argument. 


RND argument is negative. 


NEW 


10 X»1 
20 ? RND( 
RUN 

.50438 

.0267824 

.388094 

.569123 

.720021 

.209046 

.599886 


To change the 
display pattern, 
insert a comma 
11 or semicolon 
^before the colon. 

X> : UOTO 20 


Don't expect the 
RND numbers for 
your RUN to be 
the same as these. 
After all, they are 
supposed to be 
"random." 


This happened 

BREAK IN 20 because we 
pressed 

CONTROL/C. 


Now replace line 10 with this 
new line 10, and after a few 
sample RND numbers, stop 
with CONTROL/C. 


10 X>0 
RUN 

.457448 

.457448 

.457448 

.457448 

.457448 

.457448 

.457448 


Note this RND 
number, then 
look back at 
the last RND 
number in the 
previous RUN. 
interesting, eh? 


BREAK IN 20 


Replace line 10 again, like this: 

10 X»-.4 
RUN 

.803906 

.803906 

.803906 

BREAK IN 20 

Again, stop with CONTROL/C, 
do another RUN, and compare 
it with the others. 

RUN 

.803906 

.803906 

BREAK IN 20 


Now RUN the program again, 
and compare the RND numbers 
from this RUN with the RND 
numbers from the first RUN. 


RUN 

.744055 

.460434 

.433291 

.27376 

.701146 

.590584 

.457448 


Note that the 
RND numbers 
from this RUN 
of the same 
program are 
different. 


BREAK IN 20 

Now make a written note of the last 
RND number displayed by your 

computer's RUN: _ 

and then go on to the next column 
of activities. 


Now RUN again, then stop 
the execution with CONTROL/C 
and compare with the previous 
RUNS. 


RUN 

.457448 

.457448 

.457448 


BREAK IN 20 


Another negative value for X. 

10 X=-l 
RUN 

7.65943E-06 
7.65943E-06 
7.65943E-06 
7.65943E-06 


BREAK IN 20 


A "small" 
RND number 
(dose to zero) 
is printed in 
floating point 
notation. 


And yet another negative value. 

10 X=-.3 
RUN 

.905996 

.905996 Hrnmm...confused? 

Perplexed? Read on 

BREAK IN 20 & all will be revealed. 
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My dear Watson, we may now begin to deduce from these experiments 
just what the rules are for getting what you want from the RND function. 

RND ARGUMENT IS POSITIVE 

For a new and different RND number every time the computer executes a 
statement with a RND function, the number in the parentheses must be 
greater than zero (any positive number). You may use any positive number 
as the argument, such as 1, which you used in the first RND demo program 
on the last page. 

You can use decimal fractions, or numbers with decimal fractions, such as 
RND(3.52), but it doesn't matter as far as getting a new RND number each 
time a statement with RND is executed. 

This type of RND function is useful in game-playing programs, where you 
want an element of chance. 

RND ARGUMENT IS ZERO 

Using 0 as the argument gets you the same RND number repeated over and 
over again. However, if you look closely at the RUN's, you will see that the 
RND number you get using 0 as the argument is the same as the last RND 
number that was generated by RND. Generated means produced by the 
computer from executing the function. 



This type of RND function is sometimes useful to debug a program, when 
you don't want the last RND number generated by the program to change. 

That way you can see the effect of other variables or values in the program 

while the RND number stays the same. USSmSSSSSSSSSmS 

RND(-) = a particular negative 

argument value always 
generates the same RND 
value. 

RND(O) = always repeats the last 
RND value generated. 
RND(+) = always a new RND 
number. 


Use direct mode to see how RND(O) takes the last RND number generated 
as its value. 

? RND(1>; RND(0>; RND(2>; RND(0>; RND(«1>; RND<0}; RND(*.15>; RND(0> 
.163989 .163989 .737525 .737525 7.65943E-06 7.65943E-06 .603906 

.603906 



Try your own values in the non-zero arguments, if you wish. 
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RND ARGUMENT IS NEGATIVE 

Using a negative number as the RND argument also gives you a repeated RND 
number each time the same RND statement is executed. However, for each 
different negative argument, you get a different repeated RND number. You 
can use decimal fractions as the negative arguments, too, such as RND(—.3) 
or RND(—9.32). Everytime you RUN the program or execute a statement 
with the same negative argument, you get the same RND number. 



Demonstrate how RND works with negative arguments, using direct mode. 


? aMDci); RND<-.4); aND<-.4); rndc-.4); rnd(-I7.5); rnd<-990) 
.905996 .303906 .303906 .303906 3.37562E-06 1.96788E*03 


Try you own demo with your own choice of RND arguments. 



In some cases, it is useful to have the same list of RND numbers used in a 
program every time that program is RUN. This might be the case for some 
simulation programs. (You'll hear more about simulations later on.) In 
effect, the RND{—.3) gives the computer an initial RND number to start off 
the list, and the RND(1) picks up from there and keeps generating more RND 
numbers. Try our list repeater program. 


NEW 


<!: 


Change the display 
pattern with a 
comma or semicolon. 


5 REM-RND NUMBER LIST REPEATER 
10 X»RND<-.3). 

20 ? RND<1) 

30 GOTO 20 
RUN 

.905996 
.270418 
.504185 
.385868 
.22101 
.457995 

Use CONTROL/C to stop the RUN. 
BREAK IN 20 


RUN 

.905996 

.270418 

.504185 

.885868 

.22101 

.457995 


New RUN, same list. 


BREAK IN 20 


your version of BASIC didn't seem to 
follow the format of our RUNs, not to 
worry. In some BASICs, you get repeated 
new RND numbers between 0 and 1 only 
the argument is one. Arguments greater 
than one—say, RND( 10)—produce 
random digits from 1 to 10 inclusive. 

Try it out! Atari, DEC BASIC Plus and 
some others require a separate program 
statement to tell the computer to 
\ generate a different RND list of numbers 
Irifor each RUN, and the statement looks 
like this: 

6 RANDOMIZE 

or like this: 

6 RANDOM 

The RANDOM or RANDOMIZE 
I statement comes before the first 
RND function in the program. 


NOW IS THE TIME FOR ALL GOOD PEOPLE TO EXPERIMENT- 

























But it isn't always handy to have random numbers that are weird decimal 
fractions between 0 and 1. Let's say we want random numbers between 0 
and 9. By a clever combination of the RND and INT functions, we can get 
BASIC to give us random whole numbers. 


NEW 


5 REM-RND INTEGERS 


10 

X»RND<1) 

20 

X»X*10 

30 

XsINT(X) 

40 

? x; 

50 

GOTO 10 

RUN 


The RND number multiplied by 10, which moves the decimal point one place to the right. 
INT chops off the unwanted fraction, producing a RND integer. 


9 1 

7 7 

0 8 


3 

5 

1 


5 

2 

9 


5 

9 

7 


7 

1 

5 


3 

4 
0 


8 

2 

I 


7 
9 

8 


8 

5 

6 


5 
I 

6 


8 

8 

4 


8 

0 

I 


4 

5 

6 


3 

6 

2 


5 

4 

2 


2 

2 

7 


2 

3 


4 3 3 4 4 
9 7 17 3 


BREAK IN 40 


Now enter this modified version of the program. It prints headings, and the 
steps in producing a series of RND integers. 

NEW 


5 REM-RND INTEGERS 


10 

20 

30 

40 

50 

RUN 


X»RNDC1 


X«RND<1) 
X*X»10 * 
X»INT(X) 
GOTO 20 


? Xj 

x> 

? X 


EXPLAINED 

X»X*10’% •• X*INT(X)" 

Which line of the 
program prints 
which column of 
values? 


For video display control, 
you could insert this line: 
45 INPUT R$ 


X*RND<1> 

X*X*10 

X*1NT<X) 

.743459 

7.43459 

7 

.835007 

8.35007 

8 

.0717177 

.717177 

0 

.371099 

3.71099 

3 

.271622 

2.71622 

2 

.929463 

9.29463 

9 

.232348 




BREAK IN 20 
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For Radio Shack and some other 
BASICS, this subterfuge isn't 
necessary for RND integers (see 
note on previous page), but the 
point here is practice using functions. 



























How about if we want RND numbers from 1 to 10 instead of from 0 to 9.? 
Simple - just add 1 to the value of X. This could be done anytime after the 
RND number is generated. Modify the program RND INTEGERS EXPLAINED 
like this, with the X=X*10 column removed, and X=X+1 added: 


^Take out line 30. 

30 

10 ? ♦* X»RND<1)”/ ” X»INT(X)' 
40 X»1NT<X> I ? X/ 

45 X-X+1 * ? X 


" X=X+1** 


You do a LISTing to see the modified program. It should RUN like this 
RUN 

XaINKX) X*X+1 

9 10 

4 

3 

4 

9 

10 
1 
3 


X»RND(1) 

.951037 

.376529 

.220719 

.379046 

.818024 

.989366 

5.23684E*03 

.281303 


3 

2 

3 

8 

9 

0 

2 


BREAK IN 45 



■¥• -y -y-y ■¥■■¥■ -y-y-y-y-y -y-y ^ 

Or get real fancy and do it in one line like this: 


NEW 


Keep your parentheses paired! 


10 ? 1NT< 10*RND< 1 ) )y i; ^ GOT O 10 

RUN Now why do you suppose that semicolon is there? 

9181257512665928 10 582896 

716769 10 3785618 10 

BREAK IN 10 

New RUN, new list of RND integers between 1 and 10. 

4742751475265 10 145935389 

10 9379247718928 

BREAK IN 10 

4 .y y. .y .y .y jy y. .y .y jy .y .y .y y. .y jy 4--y y--y-y-y-y-y-y-y-y-y-y-y .y 

How about random numbers from 1 to 100? Simple! 


10 ? 

INT(100«RND(1> 

RUN 





65 

42 

76 

57 

63 

83 

98 

44 

62 

11 

35 

80 

90 

15 

95 

BREAK IN 

10 






Go 

ahead 


5 57 27 7 22 52 88 9 60 83 42 90 32 

11 64 80 90 54 31 72 91 45 14 86 85 81 

71 47 93 74 82 19 96 8 93 83 79 85 


Feeling sharp? Then how about random numbers from 1 to 6? Even trickier, 
from 5 to 10, from 10 to 20, and from 50 to 100. Answers are hidden two 
pages forward. 
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Now that you are getting along so well in learning BASIC, try the following 
program that uses your accumulated knowledge of BASIC for a game that 
you and your friends can play with the computer. Yes, a real "game-playing" 
program, fans! Before typing in the program, go through it and try to 
understand how it works, line by line. If you get confused, see the next page 
for explanation. Notice that we use REMark statements. They help somebody 
who is studying a LISTing of a program to understand what the following 
section of the program does. You'll recall that when the program is RUN, 
the computer skips past the REMarks. You can skip them, too, when you're 
typing in the program, that is if you want to save a little work or time or 
computer memory space. 


* 


* 

DO IT 


(when you understand what the program does ... ) 


NEW 


5 REM'NUMBER A GUESSING GAME 

10 REM-ADAPTED FROM THE BOOK ’’WHAT TO DO AFTER YOU HIT RETURN 

200 REM-PRINT THE INSTRUCTIONS FOR THE GAME 

210 ? ”I WILL THINK OF A WHOLE NUMBER FROM I TO 100.” 

220 ? ’’TRY TO GUESS MY NUMBER. AFTER EACH GUESS> I WILL” 

230 ? ’’TELL YOU IF YOU HAVE GUESSED MY NUMBER# OR IF YOUR” 

240 ? "GUESS IS TOO SMALL OR TOO BIG.” 

300 REM-COMPUTER ’’THINKS” UP A NUMBER - CALL IT X 
310 X«INT(1004tRNO(l)> + l 

320 ? : ? ”0K# I HAVE A NUMBER. START GUESSING.” 

400 REM-PLAYER GUESSES# COMPUTER COMPARES AND DECIDES 
410 ? : INPUT "WHAT IS YOUR GUESS”5 G 

420 IF G»X THEN ? "YOU GOT IT!!! LET’S PLAY AGAIN ” * GOTO 
430 IF G<X THEN ? ’’TOO SMALL. GUESS AGAIN.” l GOTO 410 
440 ? ’’TOO BIG. GUESS AGAIN.” t GOTO 410 
RUN 

1 WILL THINK OF A WHOLE NUMBER FROM 1 TO 100. 

TRY TO GUESS MY NUMBER. AFTER EACH GUESS# I WILL 
TELL YOU IF YOU HAVE GUESSED MY NUMBER# OR IF YOUR 
GUESS IS TOO SMALL OR TOO BIG. 



fcTfiV A SMAtV 

'WHAT isy- 
^ ffuess 7. 




, TOO SAi^LLf 
TRY A LARCM 
iVWMOf 4 . 
WHAT IS 
Guess 7 


OK# I HAVE A NUMBER. START GUESSING. 


WHAT IS YOUR GUESS? 50 
TOO SMALL. GUESS AGAIN. 


WHAT IS YOUR GUESS? 75 
TOO BIG. GUESS AGAIN. 


WHAT IS YOUR GUESS? 60 
TOO BIG. GUESS AGAIN. 


WHAT IS YOUR GUESS? 55 
TOO BIG. GUESS AGAIN. 



WHAT IS YOUR GUESS? 53 
TOO BIG. GUESS AGAIN. 


WHAT IS YOUR GUESS? 52 
TOO BIG. GUESS AGAIN. 


WHAT IS YOUR GUESS? 
YOU GOT IT!!! LET’S 


OK# I HAVE A NUMBER. START GUESSING. 
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WHAT IS YOUR GUESS? 



















































EXPLAINED 


Don't forget that (1) you can use ? for PRINT when typing in instructions, 
and (2) a PRINT with no instruction after it leaves a blank line in the printout. 


310 X»INT( 100*RND( 1 ) ) + l Alternate format: 310 X = INT (100*RND < 1)+1) 
Line 310 gets a random number between 1 and 100 and assigns it to variable X. 

420 IF S=X THEN ? "YOU GOT IT!!! LET’S PLAY AGAIN " i GOTO 310 

Line 420 compares the computer's number (value of X) with the player's 
Guess (value of G), and if they are the same (condition true), the computer 
tells you "YOU GOT IT!" 

430 IF G<X THEN ? "TOO SMALL* GUESS AGAIN." i GOTO 410 
Line 430 prints TOO SMALL if the Guess G is smaller than X. 

440 ? "TOO BIG* GUESS AGAIN." * GOTO 410 

Line 440 is only executed if the IF conditions in Lines 420 and 430 are 
false and the computer "falls through" to Line 440. 

Line 440 prints TOO BIG, because if the guess is not equal to or smaller than 
the computer's number X, then it must be bigger. The computer doesn't need 
an IF statement to decide that! 

Do you understand how the program works? Then go ahead and enter it 
and RUN it. Hope you get it all typed in right the first time you try. If 
you don't and it doesn't RUN, get a LISTing of the program and look for 
your error(s). 

Extra for experts: Develop a version of this game for two players who 
alternate their guesses until one of them gets the number. 



Here are clues for Northstar-style BASIC users to adapt the program to the 
IF . . . THEN . ,. ELSE format. 

420 IF G = X THEN ? "YOU GOT IT!'! LET’S PLAY AGAIN." ELSE 430 

421 GOTO 310 

430 IF G <= X THEN ? "TOO SMALL. GUESS AGAIN." ELSE 440 

431 SOTO 410 
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CHAPTER 6 PROBLEMS 


1. If Line 20 in an operating program was 20 PRINT SQR(X) and you got 
an error message for line 20, what can you assume is the problem? 


2 . 


3. 

4. 


5. 


6 . 


How will the computer calculate the I NT value of these numbers? 

3.97_-3.96_ 4.1_-4.1_ 

.2 _ -.2 _ 


Write the statement that will calculate and print 30 different random 
integers between 1 and 6 (like 30 rolls of a die). 

Want to 'fix' a program? Turn back to the NUMBER program. Make 
whatever 'fixes' are necessary to make the program count the number of 
guesses and when you win, have the message print 

"YOU GOT IT IN _GUESSES. LET'S PLAY AGAIN." 



(at which point the wisened programmer will reset the guess counter to OJ) 


A simple CRAPS game. A popular game among gamblers of the world is 
CRAPS. A player rolls two 6-sided die first to get his POINT and then 
again and again to try to match his POINT. If he succeeds (you too ladies) 
he is a winner. If not, you keep on rolling until either you match the 
POINT or you get a 7, in which case you CRAP out. Then you start 
again rolling for a new POINT. One hitch ... if the POINT roll is 7 
or 11, you are a winner! Write a program to play this simple version of 
CRAPS. Once working, you may wish to add to your program such rules 
as are used in your locale. When testing your program you may want to 
use the RND(—3) to get the same rolls over and over to be sure all is well. 

STARS — a number guessing game. Here are the rules typed by the 
computer. You don't have to include them in your program. 



"I will think of a whole number from 1 to 100. Try to guess my number. 
After you guess my number, I will type one or more stars (*). The 
closer you are to my number, the more stars I will type. One star (*) 
means you are far away from my number. Seven stars (*****•*) means 
you are very, very close to my number!!" 


Logic: If the guess is 64 or more away, one star; 32-63 away, two 
stars; 16—31 away, 3 stars; 8—15 away, 4 stars; 4—7 away, 5 stars; 

2—3 away, 6 stars; 1 away, seven stars. You will need to use the absolute 
value function, something new to you but easy. One clue ... 


IF ABS(X-Y) = 10 THEN 100 (Seepage 132.) 
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Here is a little program that "counts to 7" and in effect tells you how many 
loops it makes when the program is RUN. 

You should notice the end of Line 20, which introduces a handy new BASIC 
statement. Now what do you suppose it tells the computer to do? 




NEW 


5 REM 
10 F« 
20 IF 
30 ? 
40 F» 
RUN 
F 


-AUTOMATIC LOOP COUNTER 
1 

F>7 THEN ? 

”p p 

F+1 : GOTO 20 


•’NOW F 


F : STOP 


F 

F 

F 

F 


This line checks to see if the 
loop has repeated itself more 
than 7 times. 




The value of F changes by +1 each time through 
the loop, and thus counts off the number of loops. 


F = 6 
F = 7 
NOW F » 8 



BREAK 


IN 20 


STOP (line 20) tells you 
where it stopped the RUN. 


Do you understand how the program above works? Then try another kind of 
automatic loop by doing the programs on the next page. These programs 
use FOR-NEXT loops. They are called FOR-NEXT loops because they use 
the FOR and NEXT statements. We will show two ways of writing the same 
program. The first version uses single statement lines. The second version 
uses a multiple statement to put the FOR-N EXT loop instructions in one 
program line. 
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5 REM-USING THE FOR-NEXT LOOP CONTROL 
10 FOR F® 1 TO This is a FOR statement. 

20 ? "F ='•; F 

30 NEXT F This is a NEXT statement. 

40 ? "NOW F F 

RUN 
F » I 
F = 2 
F ® 3 
F a 4 
F a 5 
F a 6 
F a 7 
NOW F a 8 


FIRST 


VARIABLE TO COUNT OFF LOOPS 


VERSION 



Now do the following program, and compare it to the one you just tried. 
Lines 10, 20 and 30 of the first version are all in one multiple statement line. 
Line 10 in the second version. 


NEW 


10 FOR Fal TO 7 : ? "F a”; f 

20 ? "NOW F a"; F 

RUN 

I ii SECOND 

F a 8 

F a 7 

NOW F a 8 


s NEXT F 
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tf)eFOR~NEXT LOOP explameb 



This is how the FOR-NEXT loop works. F is the control variable of this 
FOR-NEXT loop. It controls the number of times the body of the loop 
is repeated. Follow the arrows. 



This says to assign the value 1 to the variable F. Then go 
on to the next statement in the program. 1 (one) is the 
starting value for F, and 7 is the high limit for F, and is 
also the number of times the loop will be repeated. 


NEXT statement tells the computer where the loop 
, and sends the computer back to the FOR statement 
(Line 10). The value of F is increased by 1 (F = F + 1). 
and the computer starts back through the loop again. 
When F exceeds 1 (the high limit for the variable F), the 
program skips to the next statement in the program after 
the FOR-NEXT loop. That means it would skip Lines 20 
30 and execute Line 40 (the statement after the 
<T statement). 


20 ? ••F 
30 NEXT 


I NT the value of F. F = 
loop. 


1 the first time through the 


F 


Here is the general form for a FOR-NEXT loop. 



FOR statement 


NEXT statement 


FOR CaA TO B 


<3 


Sets beginning and end values of C, 
that is, it says what C's first value is, 
and what value C can't go past. 


Body of the loop, instructions that 
are followed over and over until the 
loop has finished. Can be one or 
more statements. 


NEXT C 




Closes the loop, and the computer 
goes back to the FOR statement. If 
C < B, it goes through the loop again. 



A FOR statement must always have a NEXT statement matching it to tell 
the computer where the loop ends, and to send it back to the FOR statement 
to start the loop again. However, the variable may be omitted after NEXT 
/fyour program is simple, and if leaving out the variable after NEXT doesn't 
confuse you or the computer. 
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Here are some practice programs using FOR-NEXT loops. 


NEW 


10 A*5 t Bal0 

20 FOR C«A TO B I ? "C C : NEXT C 

RUN 
C ■ 5 
C - 6 
C « 7 
C » 8 
C « 9 
C « 10 


Replace Line 10 with the one below. 

10 INPUT ’’A A * INPUT ’’AND B «’*; 


B 



And add this Line 30. 


30 ? t GOTO 10 
LIST 

10 INPUT "A »*•; A * INPUT "AND B B 

20 FOR C»A TO B » PRINT "C C J NEXT C 

30 PRINT t GOTO 10 



RUN 

A ■? 4 
AND B «? 8 


Try these values, but don't stop there. Get the hint? 


A=0, B=6 
A=-9, B=2 
A=3.3, B=7.5 ^ 

A=6, B=3 
etc., etc., etc. 
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You can see that the value of the FOR-NEXT loop control variable auto¬ 
matically increases by 1 each time through the loop. But BASIC also allows 
you to control the size of the increase in the FOR variable. Here is a new 
fancier FOR-NEXT loop, with three arguments or parameters for the 
FOR—NEXT loop control variable. 


S is the size of the steps 

20 FOR ^C“A TO B STEP S'that the C variable increases 


FOR-NEXT loop 
control variable. 


Tloop Starting value 
for C. 


by each time through the loop, 


ast value C 
can have. 



The value of S in STEP S could be a whole number or a fraction. 




amiUMS <13T2 


Note that the value of a FOR-NEXT control variable may be decreased each 
time through the loop. This is accomplished by using a negative value for 
STEP. But it won't run through the loop more than once if the value of A 
is less than the value of B. The first time the computer comes to NEXT and 
compares the value of C to the value of B and finds C is less, it ends the loop 
and goes on to the rest of the program past the FOR-NEXT loop. 



mere practice do the lEKTma. 


100 














Try these input values and what ever else you want to try. 




A=1, B=10, STEP=2 
A=1, B=6, STEP=.7 
A=6, B=1, STEP=-1.5 
etcetera, etctera, etcetera... 


NEW 



5 REM-FOR STATEMENT WITH STEP 

10 INPUT ”A A ; INPUT "B =’*; B : INPUT "STEP”; S 

20 FOR C=A TO B STEP S : ? "C C : NEXT C 

30 ? "OUT OF THE LOOP BECAUSE C ="; C : GOTO 10 
RUN 
A =? I 
B a? 10 
STEP? 2 
C a 1 


C a 3 

C a 5 

C a 7 

C a 9 

OUT OF THE LOOP BECAUSE C 
A a? I 
B a? 6 
STEP? *7 
C a I 
C a 1.7 

C « 2.4 

C a 3. 1 

C a 3,8 

C a 4,5 
C a 5,2 
C a 5.9 

OUT OF THE LOOP BECAUSE C 
A a? 6 
B a? 1 
STEP? -1»5 
C a 6 
C a 4.5 

C a 3 

C a 1.5 

OUT OF THE LOOP BECAUSE C 
A a? 



We stopped here, using CONTROL/C and RETURN to get out of a RUN 
waiting at an INPUT statement, but we sure hope you didn't!!! Go ahead 
and EXPER!MENT! 
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FROGS?? GIGGLES??? GET SERIOUS!!! 



DO IT 


Try some other FOR-NEXT loops. Try changing the body of the loop to do 
something besides tell you the value of C each time through the loop. 
Experiment! 


Try this talking frog program. 


NEW 


5 REM-TALKING FROG PROGRAM 
10 FOR K=1 TO 5 
20 ? "GRIBBIT” 

30 NEXT K 
RUN 

GRIBBIT 
GRIBBIT 
GRIBBIT 
GRIBBIT 
GRIBBIT 


And now a program that simulates a 
whole pond full of frogs. (Anyone 
for frogs legs?) 



NEW 


5 REM-TALKING FROG POND 
10 FOR K=l TO 200 
20 ? ’’GRIBBIT 
30 NEXT K 
RUN 

GRIBBIT GRIBBIT GRIBBIT 
BREAK IN 20 


Special note to frog haters: you can use CONTROL/C to stop a FOR-NEXT 
loop from looping. 



You can use spaces enclosed by quotes to separate values or strings from 
each other in PRINT statement output, especially in headings for tables or 
other arrangements of words and/or phrases. 

For one separating space in PRINT statement output: " " 5 
For two separating spaces: " '*; 

For three spaces: " " j 

And so on. Other techniques will be demonstrated in Chapter 8. 
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Latest Novelty, Croaking Frog. 

No. 39R1017 By pressing 
the little rubber bulb, the 
frog is made to hop and at 
the same time prtKluce a 
croaking sound, which is a 
very correct imitation of the 
real frog. Bound to be a 
source of great amusement 
to the children and grown 
folks as well, Each....26c 
Jf by mail, postage extra, G cents. 















FOR-NEXT in direct mode 





Note that you can put a FOR—NEXT statement and the body or working 
section that comes between the FOR and NEXT statements, in a one line 
multiple statement. That means you can use FOR—NEXT in one line 
direct mode instructions. Of course, it only works if all the instructions 
will fit on one line. Try the ones below. 

Tickle your computer's fancy with this direct mode statement to give 
the computer the giggles. 

Make this into a line numbered program, if you wish. 

H$=”HA ** : FOR C=l TO 50 * ? H$; t NEXT C 

HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA 

HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA HA 

HA HA 



Now use direct mode to print a table of squares and square roots for 1 to 16. 
Make this a four-statement program, if you want to. 


This part PRINTS the headings... 


? ” X”j 

X 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 


X»2 

1 

4 

9 

16 

25 

36 

49 

64 

81 

100 

121 

144 

169 

196 

225 

256 


..and this part does the table. Aren't FOR—NEXT loops wonderful? 


SQR(X> 

1 

1.41421 
73205 


1 . 

2 

2 . 

2 . 


23607 
44949 
2.64575 
2.82843 

3 

3.16228 

3.31663 

3.4641 

3.60555 

3.74166 

3.87298 

4 


Try your own FOR-NEXT loop ideas. Do it now! 
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(IN PARAMETERS FOR 
THE FOR-NEXT LOOP 
CONTROL VARIABLE) 




The FOR—NEXT loop control variable parameters (the beginning and 
ending values and the size of the STEPs) can be expressions to be computed 
when the program is RUN. These computations are done when the loop 
begins, and the values do not change until the loop has run the entire course 
set by these computations. Our demo shows several possibilities, including 
the clever use of functions to get these parameters or values for the 
FOR-NEXT loop control variable. 


A=16 

4 

6 

8 


Y=2.185 


FOR X=SQR<A) TO A/2 STEP INT(Y) : ? X : 

All the parameters for the control variable may be expressions 
requiring calculations. The computer does the calculations the 
first time it sees the FOR statement in a RUN of the program, 
just before it starts to execute the body of the FOR-NEXT loop. 
The FOR arguments do not change, that is, they are not recalcu¬ 
lated each time the computer goes through the loop during the 
same RUN. 


NEXT X 


FOR-NEXT loops are handy for any repeated action. Let's use a FOR-NEXT 
loop to print a table of information. The body of the loop is a formula for 
calculating interest on money, such as a savings account in a bank. The 
formula stays the same, but the values used in the formula can change for 
each trip through the loop. We use the STEP function to see how our savings 
gathers interest for different rates of interest (variable 1 in the program below). 
We want to know how our savings increases if the interest rate is increased by 
1/4%, over a range of 5% to 8%. 

5 REM-SIMPLE INTEREST COMPOUNDED YEARLY/ 5 TO 8X IN 1/4X STEPS 
10 REM-PRINT HEADINGS AND TABLE OF RETURN ON $500 IN 5 YEARS 
100 PRINT ••INTEREST”/ ••PRINCIPAL ♦ INTEREST*^ 

110 PRINT •• RATE^^/ •* (FIVE YEARS)•• 

120 FOR I«5 TO 8 STEP .25 
130 R=500»(1+I/I00)t5 
140 PRINT 1/ R 
150 NEXT I 

RUN 

INTEREST 
RATE 

5 

5.25 

5.5 

5.75 

6 

6.25 

6.5 

6.75 

7 

7.25 

7.5 

7.75 

8 
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+ INTEREST 
YEARS) 


0 


See the neatly spaced heading 
for the table, using two PRINT 
statements (Lines 100 and 110). 


|YOU do it: Use your vast knowledge 
if BASIC to make the computer 
jround off the PRINTed values to 
he nearest cent. 




















It has been brought to my attention 
that certain people have snake phobia. 

I would like to encourage those unfor¬ 
tunate souls to try to ignore the snakes 
and not to let them get in the way of 
learning this stuff The snakes are a 
nice way of reinforcing the loop idea. 
For those especially handicapped by \ 
this phobia, write to me at dilithium 
for a snakeless copy of this section. 

JRB 







You can use one FOR ... NEXT \oop inside another FOR ... NEXT loop. 

In computer jargon, they say one loop is nested inside the other loop. 
However, you can't "overlap" two loops, that is, with the NEXT statement 
for the first FOR coming before the NEXT statement for the second FOR. 
It's easy to understand by looking at it. 


Rt6HT 


NEW 


5 REM-NESTED FOR-NEXT LOOPS 

10 FOR A*1 TO 3-^ -\ 

20 FOR B=1 TO 5 > ^This loop \ 
30 ? "NESTED LOOPS") is nested inside 

40 NEXT B - ' this loop ► / 

50 NEXT A -/ 

RUN 

NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 
NESTED LOOPS 


wroi>§ 




5 REM-CROSSED FOR-NEXT LOOPS 
10 FOR A=1 TO 3 ^ 

20 FOR B*1 TO 5 
30 PRINT "CROSSED LOOPS’ 

40 NEXT A-^ - 

50 NEXT B-< - 

RUN 

CROSSED LOOPS 
CROSSED LOOPS 
CROSSED LOOPS 


These loops overlap, 
and therefore are not 
nested one inside the 
other. 


?NF ERROR IN 50 





Your error message may be different. 

NF ERROR means Next without For. 

This means the computer came to a 
NEXT statement, but since the loops 
were crossed, it could not find the FOR 
statement with the same control variable. 
Notice that the computer did execute 
the first FOR—NEXT loop with the 
control variable A. But then the computer 
just followed the rules for the way 
FOR—NEXT loops operate. After the 
third time through the loop, A=4, so 
the computer went on to the next 
statement after 40 NEXT A. That means 
it came to 50 NEXT B directly from 
the A loop. The computer thought 
it had found a NEXT statement 
(NEXT B) without a FOR statement 
with the same control variable. That's 
why we got an error message. Now 
if a smart person like you is confused, 
imagine what happens to a dumb 
machine like the computer. 
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Here are two more demonstrations of the mechanics of nested FOR—NEXT 
loops. Look carefully to see which loop is providing the output when you 
RUN the program. Notice that for each trip through the outside loop, 
the inside loop goes through its complete cycle of loops. 


NEW 


5 REM-NESTED LOOPS REVISITED 
10 FOR A*1 TO 3 

20 PRINT "NESTED” Also try this program with a semicolon here 
30 FOR B»1 TO 4 
40 PRINT ” LOOPS' 

50 NEXT B 
60 NEXT A 
RUN 

NESTED 


' •.. and also here, after taking the 

leading spaces out of the string. 


FOR A=1 TO 3 



LOOPS 

LOOPS 

LOOPS 

LOOPS 

NESTED 


NESTED 


LOOPS 

LOOPS 

LOOPS 

LOOPS 


LOOPS 
LOOPS 
LOOPS 
^ LOOPS 


FOR B=1 TO 4 


FOR B=1 TO 4 


FOR B=1 TO 4 


NEW 

5 REM -CONTROL VARIABLE VALUES 


10 FOR A = 1 TO 5 

20 FOR B = 1 TO 3 

30 PRINT "A=”; A; "B=‘‘;B, 

40 NEXT B 

50 NEXT A 


RUN 

A=1B=1 A=1B=2 

A=1B=3 

A=2B=1 A=2B=2 

A=2B=3 

A=3B=1 A=3B=2 

A=3B=3 

A=4B=1 A=4B=2 

A=4B=3 

A=5B=1 A=5B=2 
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A=5B=3 





See here? Look at the first line of output. 
The value of control variable A stays at 1 
until the B loop has gone to its limit 
(B=1 TO 3). Now look at the second line 
of output. A has increased by 1, so that 
now A=2, while B goes to its limit again. 
And so on for the next line of output. 























































And now, here's two loops nested inside another loop, and yet another loop 
outside. 

NEW 


10 

FOR A = 1 

TO 

8 


20 

FOR B = 1 

TO 

lOOs 

PRINT 

30 

FOR C = 1 

TO 

lOO: 

PRINT 

40 

NEXT A 




50 

FOR D = 1 

TO 

200s 

PRINT 

60 

PRINT "COUGH 

CHOKE" 


II II a • 

o 


NEXT C 
NEXT D 


RUN 


Check this PRINT 
statement that prints 
200 blank spaces. 
While humorous here, 

tho to^hniniia ic h;)nH\/ 



There is an alternative to the Press RETURN To Continue technique for controlling 
the length of time an output stays on the display screen. Automatic time delays for 
continuing and/or fast changing video screen displays (often the result of a program 
GOTO or FOR-NEXT loop) can also be accomplished using an "empty" FOR-NEXT 
loop. The number of iterations (loops) controls the length of the delay before the 
next output is displayed. (Some BASICS have special instructions for this purpose,too.) 


NEW 

10 FOR J = 1 TO 5 
20 ? "START TIMING NOW." 
30 FOR K = 1 TO 500 
40 NEXT K 
50 ? "STOP!" 

60 NEXT J Change this value 
rj,',., to change delay time. 



100 500 2000 10000 Your Test Values 



FOR-NEXT 

Executes a controlled loop between the FOR and the NEXT statements 
for a specified number of times. 

(line no.) FOR (variable) = (parameter) TO (parameter) STEP (parameter) 
(line no.) NEXT (variable) 


10 FORX= 1 TO 30 
20 PRINT X, 

30 NEXTX 
40 END 


1 is initial value of X, 30 is final value of X, 
no STEP is specified, therefore implied to 
be one (1). It will print values 1 — 30 and 
then continue to next statement (END). 


10 FOR 2 = N TO M N, M must have been previously assigned values. 


10 FORZ= 1 TO 2 STEP.1 
. 20 PRINT Z, 

30 NEXTZ 


Will print values from 1 to 2 
in increments of. 1, as shown below 
1.1, 1.2, 1.3, 1.4, 1.5,. . .2.0 


10 FOR X = 30 TO N STEP -1 Will count down (negative increments) 

from 30 to N. 
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CHAPTER 7 PROBLEMS 


1. What happens in this program? 

10 FOR X= 17TO 5 
20 PRINT X, 

30 NEXT X 


2. What is wrong with this program to print a table of 20 different 
random numbers? ___ 


10 FOR X = 1 TO 20 

20 PRINT "NO." , "RANDOM NO." 

30 PRINT X, RND(O) 

40 NEXT 

3. Using a FOR-NEXT loop, revise the NUMBER guessing program in 
Chapter 6 to limit the user to 8 guesses. If the user doesn't guess 
correctly by 8 guesses, print an appropriate message and restart the 
game with a new number. Don't get hung up trying to directly use 
your Chapter 6, Problem 4 (page 94) modifications. (You may want 
to do a similar modification to your version of STARS.) 



^ ^ ^ ^ ^ ^ ^ ^ a* 

^ •Ji •J% ^ 


Write a program that uses a FOR-NEXT loop to print exactly one horizontal 
line full of * all the way across the page or display screen. 

The savings and loan industry is very competitive, giving you a choice 
as to how much interest you can earn, and how long you must leave money 
on deposit to earn that interest. Write a program using nested FOR-NEXT 
loops. Assume you have $10,000 to deposit and that interest is compounded 
once a year. If you know how to compound quarterly or "continuously", 
please write versions of your program using these methods. Possible 
output formats: a table: 


YEARS 

5 

10 

15 

20 

25 


5% 


5.50% 


6 . 00 % 


6.50% 




The Press RETURN 
To Continue format 

RUN 

5 YEARS AT: 

5y. YIELDS ♦12762.8156 

5.57. YIELDS ♦13069.6001 
67. YIELDS ♦13382.2558 

6.57. YIELDS ♦13700.8667 
PRESS ’RETURN’ TO CONTINUE 


With "cents" round-off 

RUN 

5 YEARS AT: 

57. YIELDS ^12762.82 

5.57. YIELDS ♦ 13069. 6 
67. YIELDS ♦ 13382.26 

6.57. YIELDS ♦13700.87 
PRESS ’RETURN’ TO CONTINUE 


6- You have 12 employees. Their payroll information 
is contained in 12 DATA statements as follows: 

900 DATA name (N$), hours worked, hourly wage. 
Write a program to compute the weekly gross pay 
of each and print the results in a simple report form. 
You pay your help time and % for all hours 
worked over 40 per week. 
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BASIC provides you with a variety of functions for manipulating strings. In 
this section we will play with strings, word games you might call it. We will 
also introduce some other special functions. 





LEN(X$) is the function in BASIC that makes the computer tell you how 
long a string is. (Remember that spaces and punctuation marks are also 
characters in a string as far as the computer is concerned.) 




NEW 


DIM if needed. 


10 B$="INSTANT BASIC IS EASY" 
RUN 


: ? LENCBS) 




NEW 


DIM? 


^ ? needed here? 

10 INPUT "YOUR NAME";N$ 

20 ? N$; " HAS"; LENCNS); "CHARACTERS." 



RUN 


Spaces inside the quotes? 


YOUR NAME? JERALD R. BROWN 
JERALD R. BROWN HAS 15 CHARACTERS. 


Add the following line to the program, and you have an automatic check to 
see whether or not an entry really was made for N$. Test the program with 
various entries, including no entry for N$. 


15 IF LEN(N*) = O THEN ? "THINK HARD. WHAT IS : GOTO 10 
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The null string test. 


Can you figure out 
what this semicolon does? 


























































































LEFT%( ) 



DO IT. 


Now, let's put three more functions through some paces, and then we'll 
explain in full. You can get a first clue as to what parts of a string are 
manipulated by these functions, just by looking at their names: LEFTS, 
RIGHTS, and MIDS. Note how we use the value of LEN(IS) |p establish 
the limit of the FOR-NEXT loop control variable. 


Also study our clever use of the changing values of the FOR-NEXT loop's 
control variable (K) in the LEFTS and RIGHTS functions, to count out how 
many characters in IS are to be PRINTed for each trip through the loop. 


NEW 


10 I$-'’INSTANT BASIC” 
20 FOR Kal TO LEN(I$> 

30 ? LEFT$<I$/K) 

Note the use of 
control variable K 
to specify how many 
characters are 
PRINTed by the 
LEFTS function. 


INSTANT BA 
INSTANT BAS 
INSTANT BASI 
INSTANT BASIC 


40 NEXT K 

RUN 

I 

IN 

INS 

INST 

INSTA 

INSTAN 

INSTANT 

INSTANT 

INSTANT B 




Now replace line 30 and 
RUN the program again. 
(LIST if you want to.) 


30 ? RIGHTS(IS/K> 

RUN 

C 

IC 
SIC 
ASIC 
BASIC 
BASIC 
T BASIC 
NT BASIC 
ANT BASIC 
TANT BASIC 
STANT BASIC 
NSTANT BASIC 
INSTANT BASIC 



rightU ) 



























J)MD%() 

Yet another string manipulating function, in another line 30. 

Again LIST if you want to see the whole program before you RUN it. 




30 ? 

mjN 




1 

N 

S 

T 

A 

N 

T 

B 

A 

S 

I 

c 


INS 
NST 
STA 
TAN 
ANT 
NT 
T B 
BA 
BAS 
ASl 
SIC 
IC 
C 




MIDS(IS^K#3> 

♦ 

lote the two different MID$ functions. 
What can you tell about the third 
argument in the MID$ parentheses? 


Have you figured out what LEN, LEFT$, RIGHTS and MID$ instruct the 
computer to do? 

LEN ( ) gives you the number of characters (LENgth) in the string assigned to 
the string variable you put in the parentheses. 

LEFTS ( ) gives you all the characters in the string identified by the string variable, 
starting with the character number that follows the string variable inside 
the parentheses. For example, LEFT$(X$,4) says to return the part 
of the string assigned to X$, including the 4th character from the left 
and all the ones to the left of it in the string. 


Use direct mode to demonstrate how LEFTS works. First, assign a string of 
numbers to the string variable X$, and have the computer return only the 
left 4 characters of the string. Then assign the string "'COMPUTERS" to the 
string variable Y$ and have the computer return only the left 4 characters 
of this string. 



XS**M23456789** 

1234 


YS = **C0MPUTERS*^ 
COMP 


X ? LEFTS<XS^4) 

Try other values in 
the LEFTS argument. 

: ? LEFT$(YS/4) 





RIGHTS { ) gives you all the characters in the string starting at the character with 
the position number identified and going on to the right end of the 
string. RIGHTS(XS,4) says to return the part of the string assigned to 
XS, starting with the 4th character from the right end of the string, 
and all the characters to the right of it in the string. 
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With the strings assigned to X$ and Y$ still in the computer's memory, 
you can enter direct mode statements to show how RIGHTS works. 


? RIGHT$CX$>4) 

6789 

Try other values in 
the RIGHTS argument. 


? RIGHTS(Y$^4) 
TERS 




MID$ ( ) returns the part of the string identified by the numbers following the 
string variable inside the parentheses. The first number says where to 
start, and the second number tells how many characters to PRINT. If 
there is no second number in the MID$ argument, the computer starts 
at the specified character and prints that character and the rest of the 
string. 

Example: MID$(X$, 4) says to return the part of the string starting with the 
4th character, and including the rest of the string. MID$(X$, 4, 3) says to 
return the part of the string starting with the 4th character, but only that 
character and the next 2 characters (3 characters total are returned). 


With the X$ string of numbers and the Y$ string of letters still in the 
computer's memory, use direct mode to demonstrate the two forms 
of the Ml D$ function for both strings. 



Users of Northstar, Atari, and some other BASICs will use the following 
substring function, that is similar (but not identical, take note) to MID$. 

Most BASICS using this format for identifying substrings also require 
DIMensioning of string variables at the beginning of the program. 

PRINT X$(2,8) means print the string assigned to X$ from the 2nd character to the 8th 
character in the X$ string. An error will result if X$ has less characters than specified 
by either substring argument. 

PRINT X$(2) means print the string assigned to X$ starting with the 2nd character and 
going ail the way to the end of the string. 

PRINT X$(2,2) means print only one character: in this case, only the 2nd character in 
the string. 

PRINT X$(1,1) means print only the first character in a string. 

PRINT X$(LEN(X$)) Means print only the last character in the string. The value for 
the LENgth of the string is also the character position number for the last character in 
the string. Logic: a substring that starts with the last character in a string, and going to 
the end of the string (which is also the last character), produces only that last character. 
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din in thp (Elub^ use this program to see it you are allowed to join the club. Notice the string 
' ’ comparison in line 20, where only the left most (first) character in N$ is used 

in the comparison. 

10 INPUT "APPLICANT’S FIRST NAME?"; N« 

J 20 IF LEFT$(N*,1) <> "J" THEN ? "SORRY, MEMBERSHIP DENIED." 
1? GOTO 10 



f 30 ? "WELCOME TO THE J CLUB" 
RUN 


GOTO 10 




Til P I P »n . » M 


ASCO 


Every character on the keyboard has a numerical equivalent to the computer, 
called its ASCII number. Who's ASCII? It's the American Standard Code for 
Information Interchange. (Just thought you'd like to know.) The ASC 
function gives the ASCII number for a string character. 


NEW 


10 X$=”ABCDEFGHIJKLMNOPQRSTUVWXYZ” 

20 FOR K=1 TO LEN<X$) : A$=MID$<X$.»K> I ) 
RUN 



We used control variable K in the MID$function 
to pick out each letter (in X$) in its turn 
and assign it to A$. This is a clever technique 
you should take careful note of and understand. 

: ? A$; " = •*; ASCCA*) : NEXT K 


A » 65 

B « 66 

C » 67 

D « 68 

E » 69 

F = 70 

G = 71 

H = 72 

1 « 73 

J = 74 

K = 75 

L = 76 

M » 77 

N = 78 

0 - 79 

P = 80 

Q » 81 

R = 82 

S = 83 

T a 84 
U a 85 

V a 86 
W a 87 
X a 88 

Y a 89 

2 a 90 

ASCII 

CODE 


DECIMAL CHAR. 


000 

001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

Oil 

012 

013 

014 

015 

016 

017 

018 

019 

020 

021 

022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 


sq "O 
.2 E 


NUL 

O QJ 

^ "o 
c o 
o ^ 
o _ 

CO 

9-< 


o ^ 

S 2 

^ o. 

C i 

E --O ^ 

£ 

rtz iT o) 

-D — 

^ ^ 
01 00 > CO 


_ 

:= O 

t/) "o 
s- 01 
ai 00 

n 3 , 

ig 

M- 

_« o . 

o ^ 

CO CO . 

0) C 
00 CO 
01 

O ^ 
C CD 

C 00 
3 C . 
.2 ■ 

01 


- s 
” i 

s- CO 
01 p 

•M ^ 

•E a> 

^ * 
O 01 


D -M 
^ 00 


ASCII CHARACTER CODES 
DECIMAL CHAR. 


043 + 

044 

045 

046 

047 / 

048 0 

049 1 

050 2 

051 3 

052 4 

053 5 

054 6 

055 7 

056 8 

057 9 

058 

059 ; 

060 < 

061 

062 > 

063 ? 

064 @ 

065 A 

066 B 

067 C 

068 D 

069 E 

070 F 

071 G 

072 H 

073 I 

074 J 

075 K 

076 L 

077 M 

078 N 

079 O 

080 P 

081 Q 

082 R 

083 S 

084 T 

085 U 


114 


LF=Line Feed FF=Form Feed CR=Carriage Return 



DEL=Rubout 
















••••• ••••• ••••• 


•••• •••• 


• ••••• •• 


• •••• 
•••••• 


• •••• • 

• • • 

• • • 

*•••• ••••• ,••••• 


•••• ••••• 
• • 

• • 

• • 

• • • • 

• ••• • 

•• : 

• • • • • • 


••• •••• 


As you can tell, ASC(X) gives the ASCI I numerical value of each character. 
And to go the other way, use CHR$(X) to change a numerical value to its 
ASCI I character equivalent. You can use this function to convert messages 
coded in ASCI I numbers to their equivalent characters. 


20 PRINT CHR^ <A);s GOTO 10 

30 DATA 80,82,79,71,82,65,77,77,69,82,83,32,68,79,32,73,84,32,66, 65,83, 
73,67,65,76,76,89 


RUN 

PROGRAMMERS DO IT BASICALLY 
?OUT OF DATA ERROR IN 10 


Forcing quotes with CHR$(34): 

10 PRINT CHR$ (34) ; "HELLO, CHR* (34);" SHE SAID." 
RUN 

"HELLO," SHE SAID. 


«4 


One V^ngee ^ingee ,.. 


ff 



DO IT 


Are your ears ringing? How about your computer terminal? There is a "sound 
off" character often called BELL, recognized by BASIC as ASCII number 7. 

If you use this ASCII instruction in a PRINT statement, it will cause a bell to 
ring on many terminals, or a "beep" on many others. CHR$(7) is a favorite 
with computer game programmers to signal a correct response or answer, an 
error, or just to add interest to the program. To ring the bell or honk the 
horn, try these experiments in immediate or direct mode, or convert them to 
short line-numbered programs. 

If you don't get a beep or bell, 
either your terminal is mute, or your 
BASIC uses a different ASCII number. 

? CHR$<7> A Example: Atari BASIC uses CHR${253). 




No visual output, just a ringing in your ear. 


FOR 





TO 8 1 ? CHR$(7) t NEXT J 


Eight bells and all is well. Also eight line 
spaces, one for each time the ? (PRINT) 
statement is performed. 
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10 

20 

30 


You can reshuffle the characters in a string using these string functions, 
joining the pieces together with + (plus sign). That's called (are you ready) 
concatenation. Check your dictionary. 

con*cat*e*nate, kon*kat"e*nat^, To link 
together; to unite in a successive series or 
chain, as things depending on each other.— 
a. Linked together.—con • cat • e • na • tion, 

Invent your own insult: kon-kat'e>na'shan, n. 


M$=”HELL0 TODAY* GOODBYE" 

XSsMIDSCMS* 14*2>-i'MID$(MS*6* 1 >-t-MI DS (MS* 7* 2> 4-MI D$ (MS* 13* 1) 4-LEFTS (MS* 4> 
PRINT X$ 




RUN 

CENSORED 



Taking Care of Business 




String information stored in DATA statements in a standardized form can be 
manipulated with the string functions you have learned. Here is a simple 
example. Let's say your computer club has five members, and you have 
decided to "computerize" your mailing list of members. Here is the form 
in which your DATA is entered, with the information for each member 
entered in a separate DATA statement. The name and address of each 
member is entered as one data item (no commas) per DATA statement. 


J. R. BROWN 
PATTI MILLER 
PAUL BROWN 
H. OILER 

K. KONG 


13140 FRATI LN. 
11000 SW 11TH ST 
263 DEARBORN 
THE ASTRODOME 
EMPIRE ST. BLDG. 


SEBASTOPOL 
BEAVERTON 
IOWA CITY 
HOUSTON 
NEW YORK 


CA95472 

OR97005 

IA52240 

TX77025 

NY10001 


You may find it helpful to fill in the form, and then type in the DATA. That 
way it is easy to count the spaces that must be left between the parts of each 
data item. Use our data and add your own, too! 


/i /2 /sA /5 /e /? /s /9 /o /i /2 /3 Mfs/e h k b /o h k /a A /s /e h /a k /o |i / z /a /4/5 /e /? /a k /o /i /z /aA fe /? | b /a /o A /z / 

LLLillJJ-LLLLllUJJ-LillJJ-LLLLllUJJ-LillJJJJ-LLlAJX.LLLll 

//////////////?///////////////!//////////////!/?///// 

LLLillJJJ^LLilJA-LLLLillJ-LLLLill±.LLLLllJJJJ-LLllAJA.LLLll 
LLLL11JJJ-LLL11±J-LLL111JJJJ-LL1I±JJJ-LL11JJJJ^LL1AJ±.LLLL1 
LLLlllJ U ILL11 \JJJ LL 'IJ LLLLlllJJ-LLLLl UJJJJ LI I /JJ-LLll 


Name 


Address 



State’ 




Zip code 


Up to 14 characters 
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Up to 16 characters 


Up to 15 characters 


2 character 5 characters 
abbreviation 













































Now RUN a program that only prints the members names, but not their 
addresses. 



NEW 


DIM M$if needed. 


Oops! A mistake in 
entering data in the 
DATA statement. 

This could mess things 
up. Be sure to double- 


5 REM PRINT ONLY THE 


10 

FOR K 

= 1 TO 5* READ 

900 

DATA 

J.R.BROWN 

901 

DATA 

PATTI MILLER 

902 

DATA 

PAUL BROWN 

903 

DATA 

H. OILER 

904 

DATA 

K. KONG 


MEMBERS’ NAMES 
M*: PRINT LEFT* (M*,14): 
13140 PRATI LN. SEBASTOPOL 
11000 SW IITH STBEAVERTON 
263 DEARBORN IOWA CITY 

THE ASTRODOME HOUSTON 

EMPIRE ST. BLDG.NEW YORK 


check yours 
NEXT K 

CA95472 
0R97005 
IA52240 


-J 


TX77025 
NYlOOOl 


RUN 

J. R.BROWN 
PATTI MILLER 
PAUL BROWN 
H. OILER 

K. KONG Without typing NEW, replace lines 5 and 10, and add the rest of the lines in 

the Address Labels program. But it's a bother to retype those DATA state¬ 
ments, so don't type NEW! 


ij 

10 

20 

30 

40 

50 


REM PRINT ADDRESS LABELS 

FOR K = 1 TO 5 If you have added more DATA statements, change the upper limit for K accordingly. 
READ M* 

ocTKi-r I CTITT* fMd: iA\ Thcsc spaccsSeparate 

PRINT LEFT* <M*, 14) city from state. 

PRINT MID* (M*,15,16) 

PRINT MID* <M*,31,15) ; " 

PRINT 


MID^ <ri^,46,2) 


These spaces separate 
state from zip code. 

RIGHT* (M*,5) 


60 

70 NEXT K 

LIST to see the expanded program, then RUN it. 


RUN 

J.R.BROWN 
13140 FRATI LN. 
SEBASTOPOL C 

PATTI MILLER 
11000 SW IITH ST 
BEAVERTON 


A9 


Uh-oh ... Our error 
^in entering line 900 
. shows up here. 
95472 



OR 97005 


(The RUN continues until all addresses have been printed.) Again, without 
typing NEW, add these three lines to the program. Now the program will 
only print mailing labels for the people in the city you specify. 


MID*<M*,31,LEN<C*)), 


DIM M$ and C$ if needed. 

8 INPUT "ENTER CITY NAME*”5C* 

9 PRINT 

25 IF MID*(M*,31,LEN<C*)) <> C* THEN 70 
LIST to see the expanded program. 

then skip the PRINT 

ENTER CITY NAME* NEW YORK nTxt"DATl7tem. 


See LEN used to set the MID$ 
function's second argument for how 
many characters to include in the 
substring. This matches the length of 
the "city name" substring of M$ to 
the length of C$, so that any position¬ 
holding spaces following the city name 
in the DATA statements are excluded 
from the string comparison in line 25. 
How clever of us to remember that 


K. KONG 

EMPIRE ST. BLDG. 

NEW YORK NY 10001 


extra spaces have ASCI I numbers that 
would mess up the string comparison 
of C$ to the city name substring in M$, 
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It is possible to convert a number to a string, or a string to a number. The 
function that converts a number to a string is STR$(X). Changing a number 
to a string means that the string representation cannot be used in calculations, 
but you can use all the other string functions to manipulate the number 
turned string. 

To change the string representation to a number, use the VAL(X$) function. 


STR$(X) 

The value to be changed 
to a string goes here. 


VAL(X$) 

The string to be changed 
to a numeric value goes 



here. 


NEW 


10 V«3*14159 : 
20 V$«STR$<V> 
RUN 

3.14159 
3.14159 


NEW 


10 S$=’*3. 14159 
20 S»VAL<S$> J 
RUN 

3.14159 
3.14159 




Notice something? The string S$ has no space 
in front of the number for a — sign or the 
assumed + sign. When the string S$ is changed 
to a value, however, the computer includes that 
space. (See the next page.) If your page 29 test 
showed no leading space included for PRINTed 
positive values, then you won't see one here, 
and the next program will count one less 
character. 


Here's how to find the length of a number, that is, how many character 
positions are needed to print the value. 

NEW 


Is our computer right? 
Go on to the next page 
for further analysis. 
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10 V*3.14159 
20 ? LEN<STR$<V)) 



First change V to a string, then 
find the LENgth of the string. 



























NOSHVCE 



READ 


Remember that many BASICs leave one leading character space in front of a 
positive value (where the plus sign could go, even if it isn't printed). When such 
a positive value is changed to a string with STR$, the string also includes that 
space. Count the characters in the output from the last program to verify this. 
Remember that the decimal point is also counted as a character. 


Converting a value to a string gives you more control over how and where 
that number is printed by the computer. This is because you can apply string 
functions to a "converted" value. 


Let's say you want to print the value of a FOR-NEXT variable for each trip 
through the loop. You want these numbers to print or display one after 
another, but your BASIC is the type that includes a leading space before 
positive values. Try this technique to eliminate the leading space. 



NEW 


10 FOR Ka! TO 8 

20 FOR Kal TO 8 

RUN 

1 2 3 4 5^ 

12345678 ^ 

We don't want those spaces in there. 

So we change the value to a string, and 
print the string starting with the second 
character. That leaves out the space! 



: PRINT K; : NEXT K : PRINT 
: K$aSTR$<K) : PRINT MID$(K$,»2); : NEXT K 

I* 


Coming soon — real applications for values converted to strings. Keep an 
eye out for STR$ used to change values to strings in order to control the 
print position of numbers. 




Now let's master another interesting and useful BASIC function that gives 
you more ways to get what you want out of your computer. The more 
control you have, the better your programs will be. Each new BASIC 
function you learn will bring you closer to using BASIC and your computer 
to the fullest extent possible. 
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INeatwess Cowats; 




READ 


CONTROLLING PRINT POSITION WITH TAB{ ) 


If you'll cast your mind back to page 11, you'll recall that we asked you to 
count the character positions across the display line or printed output for 
your computer. We said that the character positions are numbered starting 
from zero for the first position on the far left, like this: 


(read the numbers up and down, 1 = ig ^ = 71^ 

0 1 

012345678911111111112222222222333333333344444444445555555555666666666677 
^1234567890123456789012345678901234567890123456789012345678901 

You can tell the computer at what character position you want something 
PRINTed by using the TAB(X) function. On a regular typewriter, you can 
usually set tab positions for typing at various places in a line. The TAB 
function in BASIC is similar, and is used in PRINT statements to let you 
control where on a line something is PRINTed. 


TAB(X) 


The character position (starting at zero at the far left) goes 
here, and the value of the argument tells the computer at 
what character position it should start PRINTing the next 
output. The argument in the TAB parentheses can be a 
number, a variable, or an expression to calculate, but TAB 
must end up having a positive number, usually not greater 
than the number of character print positions in a line. If 
the argument is a number with a fraction, the TAB function 
only uses the whole number part. For example, TAB(15.7) 
is executed as TAB(15). 


5 REM *** TAB TESTER 
10 ? i;2;3 
20 ? 1,2,3 

30 ? "ONE"; TAB<10); "TEN" 

40 ? TAB<15); 15; TAB<20); 20 

50 LET A = 13 ! ? TAB(A); A 
60 LET B = 6 I ? TAB<A-B>; A-B 
70 ? TAB<A/B>; A/B 
80 ? TAB<B-A); B-A 
RUN 


TAB is only used in PRINT statements, and determines where the next 

PRINT statement item will begin PRINTing. TAB{ ) is followed by a ^ ♦jig 

semicolon so that the next output indeed begins at the character position ^ 

TAB specifies. A comma after a TAB would tell the computer to PRINT at l(|.|i aaImmia fiinfiHfiii I 
the beginning of the next print zone after the character position specified lOW OflliUriB ittUwliOU • 
by the TAB argument. 


Please note: TAB cannot space backwards, that is, to the left. So, if the 
display cursor (or print head on the printer) is already at character position 
24, you cannot use TAB{20) to TAB back to position 20, or any position 
before 24. 

Many video display-oriented BASICS have the HTAB (for Horizontal TAB) 
and VTAB (for Vertical TAB) variations on the TAB function. HTAB will 
allow you to position the cursor forwards or backwards on a display line, and 
the next output will begin at that position. Similarly, VTAB lets you control 
the vertical display position of the cursor, allowing you to select the line 
where the next output will begin. VTAB and HTAB are set in their own 
separate statements, not after PRINT like TAB. There is no function called 
TAB in Atari BASIC, but you can preset print positions, like setting a tab 
on a typewriter. 

00000000''-000000000000000000000000000000000000000000000000000 

SPC(X) 


Another spacey function in some BASICs is the 
SPACE() or SPC( ) function. Like TAB, it is used 
only in PRINT statements. SPC() tells the computer 
to leave spaces between PRINT statement outputs, 
or spaces before the first output, if used at the 
beginning of a PRINTed output line. The value in 
the SPC( ) argument tells how many spaces should 
be left before the next output. When SPC( ) is 
included in a PRINT statement ending with a 


semicolon, and that PRINT statement is located 
within a program loop, the result will be an equal 
number of spaces left between each PRINTed 
output. Like TAB, the SPC argument can be the 
results of a calculated expression, or it can be a 
variable with changing values. Therefore, the 
number of spaces left can also vary from one 
execution to the next of the same PRINT 
statement. 

























In the following program we use the PRINT statement to draw a picture or 
graphic representation of the Leaning Tower of Pizza (no anchovies, please). 



How about a more automated tower graphic? 
Note the use of the FOR-NEXT loop control 
variable to get the "lean." 


Now do it with TAB. 


NEW 


10 

PRINT 

TAB(0>; 

"XXX" 

20 

PRINT 

TAB<1>; 

"XXX" 

30 

PRINT 

TAB<2); 

"XXX" 

40 

PRINT 

TAB<3); 

"XXX" 

50 

PRINT 

TAB(4>5 

"XXX" 


RUN 

XXX 

XXX 

XXX 

XXX 

XXX 


NEW 

10 FOR X»0 TO 4 
20 ? TAB<X); ”XXX" 
30 NEXT X 
RUN 
XXX 
XXX 
XXX 
XXX 
XXX 


Many brands of computers have special instructions 
for producing and controlling graphics. These differ 
so greatly from one BASIC to another that we won't 
even attempt to summarize them here. Effective use 
of graphics producing statements and functions 
requires the same general techniques for manipulating 
strings and values with assignment statements, 
branching statements, and loops that you have been 
learning. So in that respect you are ahead of the game. 


Some BASICS (Radio Shack and Atari, for example) have a built-in set of graphics 
figures, each with its own ASCII code number, just as if they were alphanumeric 
characters. You can check using this program. 

10 FOR G = 1 TO 256 : ? CHR$(G); ; NEXT G 

In general, you can turn on and off little dots (actually tiny rectangles) that are 
arranged in a grid (row and column) pattern, specifying their position for display 
by the crosspoints of row and column numbers. On systems with color graphics, you 
also get to choose from a set of colors, and often color intensity, too. Some allow 
you to predefine shapes, and to store them for later use, when you can also specify 
the size, position and orientation (tilt or rotation) of that predefined pattern. And 
then there is the sound-generating capability for producing music on some systems. 
Composers take note. 


J 
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Now here is another use for TAB in combination with some other functions 
you have learned. 

Let's say you wish to line up a series of numbers according to where the 
decimal point is located. 


First, the numbers are printed as usual. 


NEW 


10 A»1.346 
20 ? A : ? 
RUN 

I. 346 
225. 1 

II. 73 


t B«225.1 
B J ? C 


: 0*11.73 


I 


This doesn't make it! 


Here is a way to get the numbers lined up according to the position of the 
decimal point. 

NEW 



10 A*1.346 t ? 
20 A1*INT(A) t 
30 AS*STR$(A1> 
40 L*LEN(AS) : 
50 ? TAB( 6 -L); 
RUN 

1.346 < —13 
1 

1 ^A$ 


)|^ 1.346 

L=2 if it counts 
a leading space. 



Take the INTeger part of A (that's A up to the decimal point, leaving off the fraction). 
Change the value to a string with the STR$ function. 

Find the LENgth of the string—that's the number of characters up to the decimal point. 
Subtract the LENgth of the string from some number, say 6, to get the proper 
print position to begin PRINTing the number, so that the decimal point always ends up 
in the same place. Then TAB to that character print position, and PRINT the value of 
A. We used 6 arbitrarily in the TAB function. You would have to count to the character 
print position you would need for your table, chart, column of figures, or whatever you 
might be using this instruction for. EXPERIMENT!!! 


Now combine all these operations into one, and remember to keep your 
parentheses paired! 


NEW 



10 
20 
30 ? 
40 ? 
RUN 


A*1.346 t B*225.1 : C- 11.73 
? TAB(6-LEN<STR$<INT<A>))); A 
TAB<6-LEN(STRS(INT<B)))); B 
TAB(6-LEN(STR$<INT<C))))i C 


1.346 
225. 1 

11.73 


<J3<' 




s all right now, baby, it's all right now. 


A more automated method is shown on page 127. 


122 




















VES or MO Entry Tests 

Here is a handy routine to use in programs such as Number, A Guessing Game 
(see page 92). You can add it to the beginning of that program to skip or not skip 
the instructions for playing Number. It is, of course, more useful for providing a 
choice to skip longer, more complicated or time-consuming instructions or other 
parts of a long program. 

5 REM — YES OR NO TESTER FOR NUMBER GUESSINB GAME 
20 INPUT "DO YOU NEED INSTRUCTIONS?"; R4i 

30 IF RIGHT$(R«,1) <> "Y" AND RIGHT*<R«,1> <> "N" THEN PRINT : 
PRINT CHR$<7>; "TYPE 'Y’ FOR YES OR 'N' FOR NO" ; PRINT : GOTO 20 
40 IF RIGHT* (R*,l) = "N" THEN 310 
50 GOTO 210 

60 REM — PROGRAM CONTINUES 


RUN 

DO YOU NEED INSTRUCTIONS? MAYBE 
TYPE 'Y' FOR YES OR 'N' FOR NO 



The fence straddler gets the error message, because 
the first character in R$ is M, instead of Y or N. 


DO YOU NEED INSTRUCTIONS? 


Examine that complicated-looking line 30. It starts with an IF . . . THEN 
statement that has two comparisons joined by the logical AND (see page 75), 
followed by four more statements in the same multiple statement line. This is 
the Microsoft-style version, where the multiple statements following IF . . . THEN 
are only executed if the comparison part evaluates as true (in this case, if R$ 
doesn't start with a Y or an N). 


You can use the bell or beeper to call attention to the error message by including 
CHR$(7) in a PRINT statement. The blank PRINT statements help to visually 
separate the error message from the INPUT prompt string. 


Here is the same sort of Y or N choice and check for the end of Number, A 
Guessing Game. However, in this version only an entry of Y or N is acceptable, 
not YES, or NO, or a null string (no entry), or anything else. Check line 510 
carefully to see why. 


420 

IF G = 

500 

INPUT " 

510 

IF R* < 

520 

"TYPE ’ 
IF R* = 

530 

PRINT "! 

RUN 

YOU 

GOT IT!! 


X THEN PRINT "YOU GOT IT! 


GOTO 500 


> "Y" AND R* < 
r FOR YES OR 'N’ 
"Y" THEN 20 


> -N" THEN PRINT s PRINT 
FOR NO"! PRINT : GOTO 500 



DO YOU WANT TO PLAY AGAIN (Y OR N>?YES 

TYPE 'Y' FOR YES OR ’N' FOR NO 

DO YOU WANT TO PLAY AGAIN (Y OR N)*^ 

We pressed RETURN without an entry. ^ 
TYPE 'Y' FOR YES OR 'N’ FOR NO 


9ft 5 L 7 K « e-, 2“ 5** 

nil 

9 7 7V7S 93 9^ 
61 lyS 9 S 9 8^ 8» 3 1 


DO YOU WANT TO PLAY AGAIN <Y OR N)?N 
LET’S PLAY AGAIN SOMETIME. BYE-BYE 


revisited 
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^aeh ^ur Children 



Do your friends, brothers and sisters, or children envy you because you have 
a computer to use? Here's a neat little program to give kids math practice and 
a chance to play with a computer just like the big folks. 


NEW 



" •rni'SfW 


ill 

w ' 





Oiy 5 3y„s2az'5. 


10 A>INT<RNO(l>>t>10} t B«INT(RND( 1)«10> 

20 PRINT •• "JA I PRINT ’•♦"IB t PRINT”--” t INPUT C 
30 IF C-A+B THEN PRINT ’’RIGHT ON!” t PRINT l GOTO 10 
40 PRINT ’’YOU GOOFED* TRY AGAIN.” * PRINT * GOTO 20 


RUN 

5 

+ 5 
? 10 

RIGHT ONI 
9 

+ 8 
7 15 

YOU GOOFED* 
9 

+ 8 
? 17 

RIGHT ONI 
7 

+ 5 
7 12 

RIGHT ON! 



•V 

Perw KaT>. 
RY AGAIN. 



This cartoon originafly appeared in 
IMiat To Do After You Hit Return 
by People's Computer Company. 


4 

+ 4 
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Now modify (rewrite and reenter) Line 10 so that the program gives practice 
with the addition of numbers between 0 and 99. 

Change Line 20 so that four dashes or underlines are printed under the 
numbers in the addition problem. 



NEW 


10 A*INT<RND(I)*100) t B»INT(RND<1)*100) 

20 PRINT ” A I PRINT B : PRINT "—: INPUT C 

30 IF C-A+B THEN PRINT "RIGHT ONI” t PRINT : GOTO 10 
40 PRINT "YOU GOOFED# TRY AGAIN.” : PRINT : GOTO 20 


RUN 

62 

+ 66 

? 128 
RIGHT ONI 

13 

♦ 84 

7 97 

RIGHT ON! 
77 

♦ 82 

7 159 
RIGHT ONI 

10 
♦ 4 

7 




But look here. This isn't the way you see problems set up in math books. 
WRONG RIGHT 


10 10 

+ 4 +4 


There are as many ways of solving a programming problem as there are of 
skinning cats. (My apologies to cat lovers.) We could use the TAB function 
to correctly place the numbers in the problems in standard form, with the 
1's in the 1's place and the 10's in the 10's place, and so on for problems 
with more than two digits. 
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NEW 


5 REM-NEW IMPROVED ADDITION PRACTICE PROGRAM MlD$only used to 

10 A* INT ( RND< I ) ♦ 1 00 ) s B» INT< RND< 1 > ♦ 100) eliminate leading spaces. 

20 A$»STR$<A) : B$=STRS<B) 

30 ? TABC5-LEN(A$) >; MID$<A$,2) : ? •*+”; TAB< 5-LEN< B$ >); MID$(B$/2) 

40 7 ••-•• : imput C 

50 IF C=A+B THEN ? "RIGHT ON!!!" t ? J GOTO 10 
60 ? "YOU GOOFED, TRY AGAIN." ? ? t GOTO 30 
RUN 
78 

+ 80 


? 158 

RIGHT ON!!! 
54 

+ 18 
? 72 

RIGHT ON!!! 

10 

♦ 4 

? 14 

RIGHT ON!!! 
5 

♦ 30 

mm m m m 

7 35 

RIGHT ON!!! 

47 

♦ 72 



Drawing by Marie Marcks reprinted courtesy of Kaiser News ® 1967 


? 110 

YOU GOOFED, TRY AGAIN. 



EXTRA FOR EXPERTS. (1) You could put a FOR-NEXT loop around the 
program to give a specified number of problems for one session. (2) You 
could add a counting statement to Lines 80 and 90 to keep track of right 
and wrong answers, and to PRINT them at the end of a session. (3) You 
could limit the number of wrong answers before having the computer give 
a new problem, by using another FOR-NEXT loop around the central part 
of the program. (4) You could add PRINT statements to explain how the 
program is to be used or perhaps, whether to work out the problems on 
scratch paper before entering the answer, if the problems are complex. 

(5) You could allow the child to select how many numbers for each sort of 
problem. Keep thinking, and happy programming! 
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You can create your own specialized functions, using the DEF FN (Define 
Function). This is the form in which you DEFine your FuNction for the 
computer. 


DEFine FuNction 

DEF FNA (V) = expressi on in whi ch V is the '"dummy variable" 
dummy variable for the function argument 




variable to distinguish this defined function 
from any others in the same program 


Once you define a function in a program statement, you may use the function 
just as you would any other function that is part of BASIC. However, there are 
several tricky thinas about about defined functions. 

(1) You must define your function in the program using a DEF statement before 
you use the function itself in other statements later in the program. 

(2) DEF is or?//used in the statement where you DEFine the function, similar to 
the way DIM is used. 

(3) The “dummy variable" in the DEFinition is just a place holder: it shows the 
computer where in the function the real program variable should substitute for the 
dummy variable. 

(4) Don't be confused: the variable that identifies the function itself goes right 
after FN_ where we have the blank. The dummy variable for the function 
argument (we use V in the DEF FN_(V) statement), is where the real program 
variable gets "plugged in" or substituted when the function is used in the program. 

(5) DEF FN_ may be used for string variables and string manipulation—but not 
in all versions of BASIC. 



To demonstrate, let's go back to the program we used to line up decimal points. 
We want a defined function that will provide a value for the TAB argument. We 
use P (for Point) as the function ID variable (FNP). 

Every time the computer finds FNP, it 
does this operation, using the real 
program variable's value in place of the 
dummy "place-holder" variable V. The 
result is a value for the TAB argument 
in our example program. 


10 

20 

30 

40 

50 

RUN 


A-1.346 t B>225. 1 l C» 11.73 
DEF FNP<V>»6-LEN<STR$<INTCV))> 
? TAB(FNP<A>); A 
? TAB(FNP(B>>; B 
? TAB<FNP<C))1 C 


20 DEF FNP(V)=6-LEN(STR$(INT(V))) 

i V / 

T dummy variable 
fuTiction ID (identifying) variable 


1.346 
225. 1 
11.73 




ure saved a lot 
of typing! 


If you understand the concept 
of ''defining your own/' 
write a program with a DEF FN 
of use to you for your own interests. 


30?TAB(FNP(A)); A 

/ ♦ 

X *• in • UI..X The real variable, where the 
function ID variable^ . ■ ui m 4 .u 

dummy variable was. Now the 

computer does to A whatever 

FNP was set equal to for the 

dummy argument V in the DEF 

statement. 
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The ASC function can be a powerful tool to determine whether mistakes, illegal 
characters, or unlikely entries have been made for an INPUT statement. Checking 
is done with the grand slam combination of the ASC function, the LEN function, 
the MID$ function, an IF . . . THEN statement (often with logical ANDs and ORs), 
and a FOR-NEXT loop. Review Chapter 5 (page 75) to joggle your mind on IF ... THEN 
with logical AND and/or OR. In line 30, each character in C$ is checked, one 
character at a time, for the proper ASCII Code parameters (see the ASCII Code Chart, 
page 114). The MID$ function uses the FOR-NEXT loop control variable K to "inspect" 
(compare and decide) each and every character in C$. More specifically, the ASCII 
Code value for each character is compared twice, to see if it is within that area of the 
ASCI I codes where numbers appear. The third comparison checks for the character 
(period or decimal point). 

1st Comparison ^ IF ASC i MID* <C*,K,1)> > = 48 AND 

2nd Comparison <-> ASC ( MID* <C*,K, 1)) < =57 

3rd Comparison ^ MID* <C*,K, 1)> = 46 

THEN 50 


If both of these are true 



30 


NEW 


I-1 I- 

IF ASC ( MID* <C*,K,1>> > = 48 AND ASC ( MID* <C*,K,1>> < 

ASC ( MID* <C*.K,1)) = 46 THEN 50 ^ 



= 57 OR 


5 REM — INPUT ENTRY TESTER FOR MONEY 
10 INPUT "HOW MUCH DOES IT COST?";C* 

20 FOR K = 1 TO LEN <C*) 

30 IF ASC ( MID* (C*,K,1)) = 48 AND ASC < MID* <C*,K,1)> < = 57 OR 

ASC ( MID* <C*,K,1>) = 46 THEN 50 

40 PRINT C*;” IS A WEIRDO COST. TRY AGAIN, BUT ONLY USE NUMBERS AND 

DECIMAL POINT."! GOTO 10 
50 NEXT K 

60 PRINT "*";C*;" IS LEGIT." 


RUN 

HOW MUCH DOES IT COST? 13.88 
*13.88 IS LEGIT. 


It looks ok, but we accidentally typed 
ohs for zeros: the computer wasn't fooled. 


RUN ^ 

HOW MUCH DOES IT COST? 11.00 

11.00 IS A WEIRDO COST. TRY AGAIN, BUT ONLY USE NUMBERS AND DECIMAL POINT. 
HOW MUCH DOES IT COST? 11.00 
*11.00 IS LEGIT. 


128 


more to come,,. 












Cute, but it doesn't pass inspection. 


RUN 

HOW MUCH DOES IT C0ST70NE DOLLAR 
ONE DOLLAR IS A WEIRDO COST. TRY AGAIN, BUT ONLY USE NUMBERS AND DECIMAL 
POINT. We accidentally used I for 1. 

HOW MUCH DOES IT COST? I.00 

I.00 IS A WEIRDO COST. TRY AGAIN, BUT ONLY USE NUMBERS AND DECIMAL POINT. 
HOW MUCH DOES IT COST? 1.00 
*1.00 IS LEGIT. 

Uh-oh. We got over-zealous and included a $, 

py|\| which isn't allowed by line 30. See below. 

HOW MUCH DOES IT C0ST?*2.99 

*2.99 IS A WEIRDO COST. TRY AGAIN, BUT ONLY USE NUMBERS AND DECIMAL POINT. 
HOW MUCH DOES IT C0ST?2.99 
*2.99 IS LEGIT. 




One approach: 


This removes any dollar sign 
entered as the first C$ character 
before C$ is processed through 
the FOR-NEXT loop. 


15 IF LEFT*<C*,1> 





THEN LET = RIGHTS<C^,2> 



An alternative: 


Dollar sign is included 
in the prompt string. 

10 INPUT "HOW MUCH DOES IT COST? ^"5 C^ 


To make dollars without cents entry 
into standard dollars and cents 
using VAL, I NT, and concatenation. 


55 IF VAL(C*> = INT(VAL(C*)> THEN LET C* = C* + ".OO" 








READ 


Checking strings character by character, or by some other length of substring, is a 
powerful technique. It can be used to check for the presence of any substring of 
one character or more (up to the LENgth of the strings being tested for substrings), 
for counting up the occurrences of substrings (or words) in lines of text or DATA 
statement strings, and for other kinds of analysis. 199 
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Do your interests (voluntary or otherwise) include the use of trigonometry? 
Then the following four BASIC functions could be of great help to you. 
These four functions are: 

SIN(X) Gives the sine of the expression X. X is interpreted as being in radians. 

Note: COS(X) = SIN(X + 3.14159/2) and that 1 Radian = 180/PI degrees 
which is equal to 57.2958 degrees; so that the sine of X degrees is equal 
to SIN(X/57.2958). 

COS(X) Gives the cosine of the expression X. X is interpreted as being in radians. 



TAN(X) Gives the tangent of the expression X. X is interpreted as being in radians. 


ATN{X) Gives the arctangent of the argument X. The result is returned in radians 
and ranges from —PI/2 to PI/2. (PI/2 = 1.5708). 


••••• • 
• • 


If trigonometry isn't your bag, just note the existence of these functions for 
future reference, and concentrate instead on the use of BASIC to print (plot) 
points for a graph. 


• ••• •••• 


Our next clever little program demonstrates the use of the computer to plot 
graphs. We use the SIN(X) function in an expression that provides a TAB 
value for printing (or plottin^to use the mathematicians term) points on a 
sine wave curve or graph. 

The usual method for display |.a sine wave puts the X-axis on the horizontal, 
and the Y-axis on the vertica ik? this; 



However, most computer terminals cannot backspace, and if the computer is 
calculating points in sequence along the curve, it becomes a problem. The 



130 


This way the computer can start at the "top" and print points on the curve 
in succession down the paper or CRT screen. 








































X X 


For any graph, you must decide on a scale that will be both printable by the 
computer and also show the characteristics of the mathematical function 
being graphed. Since the sine of an angle can only have values between +1 
and —1, we must expand the scale in order to plot a curve that looks like 
a curve. 



TAB(10*(1 +SIN(P))) 


Multiplying by 10 gives us an 
expanded scale of 0 to 20 on 
the Y-axis, that is, 10 character 
spaces "above" and "below" 
the real X-axis. That also means 
there are 20 character print 
positions where a point may be 
plotted or printed by the computer. 



Adding one to the value of the sine gives 
values between 0 and +2, instead of between 
—1 and +1. The reason for doing this is to 
avoid negative arguments in the TAB function, 
since the computer can't TAB to a negative 
character position. For us non-math types 
it's sort of like adding a +1 to get a RND 
number between 1 and 10 instead of 0 and 
9 in the RND integer routine we used before. 



FOR P=0 TO 2*3.14159 STEP .3 


By changing this value, we can 
specify how many cycles will 
be plotted. 2*PI is one complete 
cycle, so 4*PI would be 2 cycles. 




We can specify how many points 
we wish plotted along the curve 
by varying the STEP value. The 
larger the STEP value, the fewer 
the points that are plotted. 


5 REM-PLOTTING A SINE WAVE 
10 FOR P»0 TO 2*3.14159 STEP .3 
20 PRINT TAB(20*< 1+SINCP) ) 

30 NEXT P 


RUN 


X 


X 


X 


X 


X 


X 


X 


First Version 


X 


X 


X 



Modify the program to see 

(1) the effect of changing the 
number of points plotted; 

(2) the effect of changing the 
"scale expansion factor," and 

(3) the effect of changing the 
number of cycles graphed. 


10 FOR P«0 TO 
RUN 

X 


Second Version 


X 


4*3.14159 STEP .5 

What did we change 
to get this output? 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 


X 


X 


X 


X 


X 

X 
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Here's a quicky intro to two more functions. SGN( ) stands for SiGN, and 
gives you a plus one (+1), a zero, or a minus one (-1), depending on whether 
the value considered in the parentheses is positive, zero, or negative. 


-1 if X<0 


SGNO and ABSO 


Value returned by SGN(X)= 0ifX = 0 

1 if X > 0 


ABS( ) stands for ABSolute value, and makes the value inside the ABS( ) 
parentheses a positive number, no matter whether the original number was 
positive or negative! We will use these two functions, along with INT( ) to 
make the computer always "chop off" the decimal fraction of a value the 
same way no matter whether the value being "chopped" is positive or 
negative. Following the logic provided below, you create a little test 
program to demonstrate. 



To chop a negative, zero, or positive number, B: 



Suppose B = —3.1416 


A = SGN(-3.1416)*INT(ABS(-3.1416)) 
' = -1*INT(3.1416) 

= -1*3 
= -3 


CHAPTER 8 PROBLEMS 

1. Remember the round off method developed in Chapter 6? It can and 
should be used in a DEFine function. Write a DEFined function state¬ 
ment that uses this round off method. 

2. What will this program print? 

10 A$ = "BASIC BEST IS INSTANT DOES" 

20 PRINT LEFT(A$,5), 

30 PRINT MID(A$,12,2), 

40PRINTMID(A$,7,4) 

3. Write a program to print this title backwards: INSTANT BASIC. 

4. Assume that you have 20 DATA statements with names of job applicants 
entered last name first, comma, first name. You want to print a list 

of these applicants first name first followed by last name. Write a pro¬ 
gram that will prepare this list. You should use LEN, and MID among 
other functions. Note that first and last names are only one data item. 

Sample DATA statement format: DATA "ZENITH,HAROLD” 

Sample report (output) format: HAROLD ZENITH 

5. Modify the addition practice program in this chapter to give the user the 
choice to add, subtract, multiply, or divide. And for experts, combine 

all this with the EXTRA FOR EXPERTS tips found in the chapter (page 126). 

6. What's in a name? A child is born. The family wishes an unusual name, 
one that starts with the letter J in honor of a deceased grandfather and 
that is short with no more than 6 letters. Write a program that will generate 
random names that begin with J. You will have to experiment and come 
up with some "rules" for how many vowels to use and where they should 
be placed, otherwise your words will be gibberish ... though unique! 






THE REAL^W OF 

SUBSCRIPTED VARIABLES 



Now we open up for you the last really important capability of BASIC, one 
that makes complicated, tedious manipulation of information much easier. 

This is the realm of subscripted variables. Subscripted variables are used to 
keep track of information in lists and arrays. (Not that you have a complete 
knowledge of BASIC, mind you, but the other nice little things BASIC can 
do are like tinsle on the tree.) 133 



































^Prejfentms: ^l)t (!^ne Bimeusiional ^rrap of ^ubsicripteb ^ariablesJ 



This section on subscripted variables will provide you with an important 
programming tool for an immense variety of programming needs. So pay 
close attention and don't be afraid to go beyond our examples and experiment 
so that you will feel totally comfortable in dealing with subscripted variables. 

You math types may remember subscripts as those little numbers (or letters) 
at the lower edge of variables in complicated formulas like this: 



subscript 




In BASIC, a subscripted variable looks like this: 



variable'^ A (5) subscript 


variable 


subscript 




A subscripted string variable could look like this: 



The rules about the variable part of a subscripted variable are the same as for 
regular variables and string variables (see page 00 for limitations on variable 
names.) 

Note that X(3) is a subscripted variable. However, note that X, X3, X(3), 
and X$(3) are all different variables. They can all be used in the same program, 
and while they might confuse you, BASIC recognizes them as separate and 
distinct, and has separate "boxes" for the variables and their values or strings. 


Just like a regular variable, a subscripted variable names a location inside the 
computer. We can still think of the locations as those little boxes. Here's 
what they might look like for subscripted variables. 


A(1) 


A(0) 2 


A(4) 18 


A(3) 6 


A(1) 85 


A(2) 3 



A set of subscripted variables like 
this is called an array. In particular, 
this is a one dimensional array, also 
called a list or vector. The value of 
A(0) = 2. The value of A(1) = 85. 
The value of A(4) = A(2)*A(3) or 
3*6. Look in the boxes to see the 
values of A(2) and A(3). 


IVf 2k I I 


A(5) -55 


A(6) 3.98 
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And Then There’s 


One thing that makes these subscripted variables so handy is that they make it 
easy to assign a lot of values to a lot of variables. And the reason why they 
make things easy? Because the subscript for a subscripted variable can also be 
a variable. (Don't panic, check below.) 


)0 I] 


variable’ 


A(K)^^,.,/^ub$crjpt, whose numerical value 
^jr'aepends on the value of K. If 

K = 4 then the box that corresponds 
to A(K) is A(4). 


K 

4 

A(4) 

18 




Right off let's be sure we understand that the value of the subscript is not 
the value assigned to the subscripted variable. This sometimes confuses people 
at first, so we will make that point several times. In the example above, the 
value of the subscript is 4, and the value of the subscripted variable A(4) is 18. 
Check the boxes. 

Don't be afraid to go back and read this introduction over again. When you 
think you've got the theory down, go on and try out the demonstration 
programs using subscripted variables. 


This program assigns values to four subscripted variables from a DATA 
statement, then PRINTS the subscripted variables and their assigned values. 


NEW 


5 REM-FIRST SUBSCRIPTED 


10 READ Y<0>/ 

Y( 1 

>/ Y(2), 

20 ? 

”Y(0) 


Y( 

0 > 

30 ? 

•*YC 1 ) 

»•*; 

Y< 

1 ) 

40 ? 

'•Y(2) 


Y< 

2 ) 

50 ? 

••Y<3> 


Y( 

3) 

60 DATA 3* 

8* 

2 # 

6.5 

RUN 





Y<0> 

= 3 




Y< 1 ) 

= 8 




YC2> 

= 2 




Y<3) 

* 6.5 





VARIABLE DEMO 
YC3) 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii: 

If this program won't work for you, and you are 
absolutely certain that it is typed in correctly, then 
read on. The original Atari BASIC and some others 
do not allow you to assign values or strings to 
subscripted variables in READ or INPUT statements, 
only in LET direct assignment statements. So you 
have to use regular variables in the READ or INPUT 
statement, then follow with LET statements to 
transfer the assignment to the appropriate subscripted 
variable. See also page 142. A separate possible problem 
is that some BASICs do not allow a subscript of zero, 
as in Y(0). Study page 142 to alert yourself to the 
simple fixes or program modifications for these 
BASICS, then return here to make them in this and 
subsequent examples. And I'd say there's a 50-50 
chance that your computer system's BASIC reference 
materials will help clarify things. 
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OOOOOOOOOOO 


DO IT 

eooooooooooooaooocooooooo 


Now use a FOR-NEXT loop to PRINT the values of the subscripted variables. 
Notice the use of the FOR-NEXT loop control variable A. For each trip 
through the loop, the value of A is used to print the subscript of the subscripted 
variable. It is also used to tell the computer which subcripted variable's assigned 
value to print. Once again we caution you: don't confuse the value of the 
subscript with the value assigned to the subscripted variable. 

NEW 

5 REM-2ND SUBSCRIPTED VARIABLE DEMO 
10 READ Y<0)/ Y<1>^ Y(2)> Y<3> 

20 FOR A«0 TO 3 

Y(A) 


: NITE FLYER 80006S 



’Y("; a; 
A0 NEXT A 
60 DATA Zt 8/ 
RUN 


6.5 


Y< 0 ) 
Y< I > 
Y< 2 ) 
Y( 3 > 


3 

8 

2 

6 . 


Our second demo used a FOR-NEXT loop to print subscripted variables and 
their assigned values. Now let's make the assignment of values to subscripted 
variables more automatic too. Our next demo program uses a FOR-NEXT 
loop to READ values from the DATA statement and assign them one at a time 
to a subscripted variable. The value of the FOR-NEXT loop control variable 
is used to decide which subscripted variable to assign the DATA value to in 
Line 20, and which subscripted variable and its value to PRINT in Line 30. 

NEW 

5 REM-3RD SUBSCRIPTED VARIABLE DEMO 
10 FOR A*0 TO 10 


oooooooeoooo DO IT 

oeooooooooooooooooooooooo 


^ NITE FLYtR SOOOtS 


20 

30 

40 

50 

RUN 

Y< 

Y< 

Y( 

YC 

Y< 

Y( 

Y( 

Y( 

Y( 

Y( 

Y< 


READ Y<A) 

? '’YC*; a; •’) =•*; y<a) 

NEXT A 

DATA 3.. 8# 2* 6.5/ 211/ 81/ 1/ >32/ 7/ .3333/ 5 
0 ) = 3 


1 ) 


8 


2 ) = 2 

3 ) « 6.5 

4 > = 211 

5 > « 81 

6 ) * 1 

7 ) «-32 

8 > « 7 

9 ) = .3333 

10 ) = 5 

... 


In some of the spiffier BASICs, 
you don't have to put in all 
those semicolon separators. 
Compare the same line 30, 
one with semicolons and spaces, 
and the other without them. 

In PRINT statements that have 
both strings in quotes (often 
called "string constants"), 
and variables (numeric, string, 
or even subscripted variables), 
try omitting the semicolons. 
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Variable Subscripted 

String constant String constant 


Same two 
statements. 



1^. 


\\\'^ 


30 ? "YC; A; "> Y<A) /^W\ 

VI ^ani 


With semicolons, 
and spaces, too. 


30 ? 

Confusing-looking, but String / String Subscripted 

ok in some versions of constant'^^ constant variable. 

variable 


Without 
semicolons 
or spaces 


BASIC. Caution advised. 




































Now Let Me MakeThis Perfectly 





Note that the value of A is the value of the FOR-NEXT loop control variable, 
which increases by 1 (one) each time through the loop. Therefore, the first 
time through the loop, A = 0 and Y(A) is Y(0). The READ statement then 
assigns the first value from the DATA statement, 3, to the box labelled Y(0). 

Don't confuse the value of the FOR-NEXT loop control variable A with the 
value of the subscripted variable Y(A), which is assigned from the DATA 
statement. We're just using the value of control variable A to have the computer 
assign values to an array or list of subscripted variables, one after the other. 

The value of A determines which subscripted variable Y(0) to Y(10) is 
assigned the next value from the DATA statement. FOR-NEXT loops make 
it easy to assign a lot of values to a lot of variables, and subscripted variables 
make it easy to keep track of a lot of values. 


A One Liner 


Want to try that last little program in multiple statements per line? 
Do it like this: 


10 
20 
30 
40 
LIST 


FOH 

0 


A«0 TO 10 : READ Y<A) : 
After replacing line 10, 
just type the line numbers 
for lines you want to take 
out, and hit RETURN each time. 


? a; ’•) y<a) 

Were you brave enough 
to try this statement 
without semicolons? 


NEXT A 


5 REM-3RD SUBSCRIPTED VARIABLE DEMO 

10 FOR A*0 TO 10 : READ Y<A) : PRINT ••YC*; A; •*) »•*; Y(A) : NEXT A 
50 DATA 3^ 8^ 2* 6.5# 211# 81# 1# -32# 7# .3333# 5 

RUN 

Y( 0 ) = 3 

Y< 1 ) « 8 

Y< 2 ) = 2 

Y< 3 > = 6.5 

^ame ©lb 

Y< 8 ) = 7 

Y( 9 ) » .3333 

Y< 10 > = 5 


(Did you get the same output?) 
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Test your memory — do you remember that after a RUN of a program, ail 
the values are still stored in the computer's memory? Well then, use direct 
mode to see if the values of the subscripted variables are really what the 
last program's output says they are. 


? Y<3>, YC5)/ 

6.5 

Now, how about that. The values really 
are stored in boxes identified by subscripted 
variables. 


Y< 10) 

81 5 


(subscripted) 




uariabtes 


String variables can have subscripts too. The only difference is that the string 
variable dollar sign ($) must come just before the subscript parentheses, like 
this; Y$(4). Let's use our trusty FOR-NEXT loop to assign strings from a 
DATA statement to a list of subscripted string variables, Y$(0) to Y$(6). 


NEW 



5 REM-SUBSCRIPTED 
10 FOR A»0 TO 6 
READ Y$<A) 

? "Y$<"; a; ") 
NEXT A 
DATA APPLE/ 


20 

30 

40 

50 

RUN 

Y$< 

YSC 

Y$( 

Y$< 

YSC 

YSC 

YSC 


STRING VARIABLE DEMO 


YSCA) 


PEAR/ PEACH/ CHERRY/ PLUM/ MELON 


=APPLE 
»PEAR 
=PEACH 
=CHERRY 
= PLUM 
=MEL0N 
=GRAPE 



GRAPE 
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If you need further convincing, use direct mode to see which string is stored 
in which subscripted string variable. 



? Y$<2)> Y$<4)# YS<0)/ Y$<3) 

PEACH PLUM APPLE 


CHERRY 



Be clear about this: different variables can be used to determine which 
subscripted variables is being referred to. It's the value of the variable used 
to indicate the subscript that is important. Do another direct mode statement 
to illustrate this point. (You haven't typed NEW have you? Well, don't!) 


^^ 

A 


A«3 : B=3 : C=3 : ? YS<A)^ Y$(B)# Y$(C> 
CHERRY CHERRY CHERRY 



No matter what variable is used 
to tell the computer the value of 
the subscript, if the subscripted 
variable is Y$(3), then the computer 
will print the string assigned to 
Y$(3). 



This just gets more and more interesting, and opens more and more programming 
possibilities. In order to determine the value of a subscript, the computer will 
even do calculations inside the subscript parentheses. Try it in direct mode, 
with our fruity list assigned to the Y$ subscripted variables still in the computers 
memory. 


X*2 : Y*8 : Z*6 : ? YS(Y/X)^ Y$<Z-X)/ YS(<Y*Z)/<X^Z)) 
PLUM PLUM PLUM 



Hmmmm, it would seem that every 
one of those calculations in the 
subscript parentheses resulted in 
the same subscript value. Do you 
agree? Don't you wish this was a 
slot machine? 



































DO IT 


Now let's use two different FOR-NEXT loops, one to READ the data into the 
subscripted variable boxes, and a different one to PRINT the contents of the 
subscripted variable boxes. If the last program is still in the computers memory 
(type LIST to make sure, if you wish), then you can avoid retyping the DATA 
statement by the following subterfuge. 

Replace Line 10 like this: 

10 FOR Aa0 TO 6 : READ Y$(A> : NEXT A 
Next replace Line 20 like this: 

20 FOR 8*0 TO 6 : ? Y$<B) : NEXT B 

Take out Lines 30 and 40 by typing 30, then hitting RETURN, and then type 
40 and hit RETURN. Remember, that eliminates those lines from the program 
by replacing those lines with ... nothing! Now LIST your revised program, note 
the changes, and RUN it. 


30 

40 

LIST 



5 REM-SUBSCRIPTED STRING VARIABLE DEMO 

10 FOR A»0 TO 6 : READ Y$(A) s NEXT A 

20 FOR Ba0 TO 6 : PRINT Y$(B> : NEXT B 

50 DATA APPLET PEAR/ PEACH/ CHERRY/ PLUM/ MELON 

RUN 

APPLE 

PEAR 

PEACH 

CHERRY 

PLUM 

MELON 

GRAPE 
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r \ IS'.. 



Now, a longer list of data in a longer Y$ array or list. Change Lines 10 and 
20, and add another DATA statement, like this: 

10 FOR A»0 TO 11 : READ Y$<A) : ? A; Y$<A) s NEXT A 
20 

60 DATA BANANA/ ORANGE/ FIG/ APRICOT/ TURKEY 
LIST 

5 REM-SUBSCRIPTED STRING VARIABLE DEMO 
10 FOR A»0 TO 11 : READ Y$<A) t PRINT AS Y$<A) : 

50 DATA APPLE/ PEAR/ PEACH/ CHERRY/ PLUM/ MELON/ G 
60 DATA BANANA/ ORANGE/ FIG/ APRICOT/ TURKEY 


RUN 

0 APPLE 

1 PEAR 

2 PEACH 

3 CHERRY 

4 PLUM 

5 MELON 

6 GRAPE 

7 BANANA 

8 ORANGE 

9 FIG 

10 APRICOT 
?BS ERROR IN 


10 


Your error message may be differ¬ 
ent. BS means Bad Subscript, and 
that's no bs. But it is an error 
message we haven't seen before. 

For sure it isn't the same as the out 

of data error message, because there 

was still another item of DATA left 

unread when the bad subscript error 

stopped the RUN. Which is a 

sneaky way of introducing the next topic ... 


141 















































So what is a Bad Subscript and why the error message? It is a subscript that the computer 
was not prepared to find or deal with. You see, many versions of BASIC automatically 
assume that any array or list of subscripted variables will have subscripts from 0 to 10 at 
most. But if you want to use larger subscripts for larger arrays, you must tell the 
computer so. 

Other versions of BASIC require any and all arrays of subscripted variables to be 
DIMensioned at the beginning of the program, no matter how many elements or boxes 
the array will have for storing information. And some BASICS don't allow strings in arrays 
at all, only numeric values. Generally, these BASICS (that don't allow strings in arrays) 
are the same ones that do require you to DIMension string variables for their maximum 
allowable character count. 

To tell the computer the DIMensions (size) of the array or list, use the DIM statement. 

The DIM statement tells the computer how many of those little boxes (the elements of 
the array) to reserve for that particular subscripted variable. It also limits the number of 
elements (boxes) in the array to the number you specify in DIM. Most BASICS start 
counting array elements at zero, so the statement 
10 DIMY$(15) 

actually gives you 16 storage boxes for values or strings. 

Two other peculiarities you might find. One is that 
for Atari and a few other BASICs, you must not 
only DIM, but also assign a zero or some initial 
value to any subscripted variable that is not other¬ 
wise explicitly assigned a value in the program. 
Most BASICS automatically assign a zero {or null 
string for a string array) to each element in the 
array that is not otherwise explicitly assigned a 
value (or string), just as for regular numeric or 
string variables. Another variation Is that some 
BASICS limit the length of strings allowed in 
string arrays. 

Now why all this DIM business? So that the computer does not use up unnessary 
space for variables that it really isn't going to need for your program. They say 
it is "good programming practice" to DIM all subscripted variables, even if there 
will be less than BASIC's assumed 11 boxes used in the program. 

Now add the DIM statement to that last program, and RUN it again. 

6 DIM Y$<11) 

RUN 

0 APPLE 

1 PEAR 

2 PEACH 

3 CHERRY 

4 PLUM 

5 MELON 

6 GRAPE 

7 BANANA 

8 ORANGE 

9 FIG 

10 APRICOT 

11 TURKEY 




DIM Y$(11) 


DIM Y(11) 


subscripted 

variable 



subscripted 
string variable 


The largest value the subscript can have. 

Most Microsoft-style BASICs allow subscripts 
from 0 to 255. No negative subscripts, please, 
or you'll get an error message. And don't try 
to have the program DIMension the same 
array more than once during a program 
RUN—that's a no-no. 
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P It works just the same for values as for string Now add a DIM statement and try the pro-P 


arrays. 


NEW 


gram again. 


gi 

g] 


[§ 

n 


m 

[U 

m 


n 


10 

FOR 


0 TO 15 

20 

FCB>=B 

30 

PRINT 

’*FC”; b; 

40 

RUN 

NEXT B 

I 

F< 

0 ) 

a 

0 

F< 

1 > 

a 

1 

F< 

2 > 

a 

2 

F( 

3 ) 

a 

3 

F< 

4 > 

a 

4 

F< 

5 ) 

a 

5 

FC 

6 > 

a 

6 

FC 

7 ) 

s 

7 

FC 

8 > 

a 

8 

FC 

9 ) 

a 

9 

FC 

10 ) 

a 

10 

?BS 

: ERROR 

IN 20 


F(B) 



5 

DIM 

FCl 

5) 


RUN 




FC 

0 > 

a 

0 


FC 

1 > 

a 

1 


FC 

2 > 

a 

2 


FC 

3 ) 

» 

3 


FC 

4 > 


4 


FC 

5 ) 


5 


FC 

6 ) 

3 

6 


FC 

7 > 

a 

7 


FC 

8 > 

a 

8 


FC 

9 ) 

a 

9 


FC 

10 

> * 

1 

0 

FC 

11 

) * 

1 

1 

FC 

12 

) a 

1 

2 

FC 

13 

> a 

1 

3 

FC 

14 

> a 

1 

4 

FC 

15 

> a 

1 

5 


SI 


jg)[D|{D|[Ojg][ei|^(j|]|C][C!l[Dj|Clty|D|lSJlC|[g|[gJ[i]|g]gl[i]|G]|Cj|D|[i^[Q|[i|[S][Dl[l|[D|QQ]S]|jgl|ll[g](i|[gl^[g|{i|(g 
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There's always one more thing to learn. Take out Line 20 in the last program, 
to see what values are stored in the F array if you don't assign any value. 


o 

0 

Cl 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 


RUN 
F< 0 


20 

LIST 

5 DIM F<15) 

10 FOR B«0 TO 15 
30 PRINT 'TC'; b; 
40 NEXT B 


F(B) 



F< 

F< 

F< 

F< 

F< 

FC 

FC 

F( 

F( 

F( 

F< 

F< 

F< 

F< 

F< 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


BASIC assumes that any variable, 
including any subscripted variable, 
has a value of zero until it is told 
otherwise. 


0 

0 

0 

0 

0 

0 


d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 

d 
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143 








SlfniJlflTEI] Amblin' 9ie 



One nice thing about having variables with subscripts is that the subscripts 
can be used to sort things (values or strings). At the same time a set of 
subscripted variables can count up things for us. Here is a little exercise in 
simulation. A simulation is an imitation of some real thing that might happen. 
Let's simulate the throwing of a die (that's one "dice"), and keep track of 
which face (number) comes up every time we throw it. We'll do this using D 
as the subscript of a subscripted variable. First, the ground work. Remember 
the RND function? (See page 87.) 

30 D=INT<6*RND(1))+1 

This will give us a simulated "throw of the die," that is, a random number 
between 1 and 6, just like rolling one of the 6 faces of a die. Next, remember 
how we used this program to count (see page 96). 

NEW 


10 ? T 


First value of T, because a 
variable that has not been 
assigned a value = 0. 


Value of T after line 20 is 
executed the first time 
through the loop. 


20 T=*T+ 1^ This is the "counting" statement. 
30 GOTO 10 
RUN 
0 
1 
2 

3 

4 

5 

BREAK IN 10 


First T = 0 


T 

0 

Then T = 1 

T 

1 
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In our simulation program we will use the array T to keep track of how many 
1's, 2's, 3's, 4's, 5's and 6's come up on our simulated die. 

To begin with, all the values of the subscripted variable are 0. 


We don't use T(0) D--> 
since there is no 
zero on the die. 


D 


D will be assigned a 
value from the RND 
statement each time 
it is executed. 


T(Q))c 


T(1) 

0 

T(2) 

0 

T(3) 

0 

T{4) 

0 

T(5) 

0 

T(6) 

0 



Let's say that the statement (shown on the previous page) that generates the 
RND integer gives us a 3, so that D = 3. 

Each time D = 3 from the RND line, we want the value of T(3) to increase 
by one to show one roll of the number 3. We can use a "counting" statement 
with the T array subscripted variable, like this: 


T(D) = T(D) + l^his is the "counting" statement. 
If D = 3thenT(3) = T(3) + 1 


Newvalueof^ OldSwhl^of 
T(3). T(3)plus1. 


D 

3 

First T(3) = 0. 

T(3) 

0 

Then T(3) = 1 

T(3) 

1 


Current value 
of T(3). 


After T(D) = T(D)+1 
is executed for D = 3. 


But if D comes up a two (D = 2) then T{2) = T(2) + 1, that is, the value stored 
at T(2) is increased by 1. 


Since there are 6 faces on the die with from 1 to 6 spots, we can use an array 
or list of 6 to keep track of what face comes up with each simulated throw 
of the die. 


'A \ 
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Now let's put together the pieces. First we have to tell the computer how many 
times to "roll the die." 

5 REM-SIMULATED ROLLS OF A SIMULATED DIE 
10 INPUT "HOW MANY ROLLS"; R 
20 FOR K=1 TO R 
30 D^INTCS^RNDC1>)+l 
40 T<D)=T<D)+1 
50 NEXT K 


This part counts the rolls. 


All right, if you RUN that much of the program, the computer knows how 
many of each face came up in R rolls of the die, all stored in the "boxes" 
of the T array. Think of a way to get the computer to tell you what those 
values are, or try our method below. 

60 FOR K=l TO 6 : PRINT K; "'S:"; T<K> : NEXT K : PRINT : GOTO 10 


^ahiitfleeAs a tJi/ewVair... 

NEW 


5 REM-SIMULATED ROLLS OF A SIMULATED DIE 

10 INPUT "HOW MANY ROLLS"; R 

20 FOR Kal TO R 

30 D«INTC6*RND(1>>+l 

40 T(D>aT(D)+l 

50 NEXT K 

60 FOR K=1 TO 6 : ? k; "’S:"; T(K) : NEXT K : ? : GOTO 10 
RUN 

A short wait while the computer does 500 loops 
* Ss 78 and tallies up (counts) the times each number 

2 *Ss 90 1 to 6 comes up when it "rolls the die." Even a 

3 'S: 99 computer doesn't do t/iat many instructions in 

4 'S: 80 the bat of an eye. 

5 'S: 76 

6 'S: 77 

HOW MANY ROLLS? 10000 

1 'S: 1671 

2 *S* 1835 

3 ’S: 1833 

4 ’S: 1735 

5 'S: 1693 

6 ’S: 1733 

HOW MANY ROLLS? 


Time enough for a quick snack or a trip 
to the restroom while the computer does 
10,000 loops, and executes the instruc¬ 
tions inside the loop. 
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--- This way of using subscripted variables for counting things can be adapted 

READS to many kinds of record keeping. This same way of using subscripts is also 
a way of tabulating an opinion poll or questionaire, or to count votes, or 
to score an exam, or... well, you think of some examples. 


Say you want the computer to tabulate or count 
the responses to this questionaire. It could also 
be a voting ballot or the answers on a multiple 
choice test. 



Here are the votes (or whatever) in DATA statements. 



900 DATA 1.. \* 2* \» 2* Ij 2, 2> I, 2, 2, 2* 2* 2, 1/ 2 

910 DATA I, 2, 2, 2* 2, 1/ 2, 1/ U 1/ 2, 2, 1> 1/ 2/ 2, 2* 2 



Let's have the computer READ them one at a time and have them tallied 
with our T array (kinda small array ... only two boxes, for a Vote of 1 or 
a Vote for 2). 

10 HEAD V 
30 T(V)*T<V)+1 



T(1) 

0 

T(2) 

0 


The values are 
zero to start with. 


Value of V will 
change for each 
vote that is read from the DATA statement. 


V 


The new value of T(V) = old value of T(V) plus 1 for the vote being tallied. 
If READ V comes up with V = 1 from the DATA statement, then 


or 


T(V) =T(V) + 1 
T(1) =T(1) + 1 



The value in box 


T(1) 


or 

T(2) 



gets kicked up by +1, and to belabor the point, which one gets kicked depends 
on the value of the subscript V — whether V is 1 or 2 on that trip through the 
loop. (Pause here for inhalation therapy.) 

After each vote is tallied, we want the computer to go back and READ another 
vote from the DATA statement. 

40 GOTO 10 
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But let's say we want to know how many votes there were, but we want the 
computer to do the counting for us. Remember that BASIC doesn't know 
when to quit when it comes to READing votes (data) out of a DATA state¬ 
ment. So we need what is called a flag to tell the computer that it has 
reached the end of the data. Remember how it works? As the last item 
enetered in the last DATA statement, you stick on a value that is quite 
different from the others (or for string data, a code word). Then you put 
in an IF-THEN statement to check each value after it is read, to see if it is 
the flag value. Let's apply this to the vote sorting/counting program using 
—9999 as the flag. 


10 READ V 

20 IF V=-9999 THEN 50 
30 T(V)»T(V)+1 
A0 GOTO 10 

900 DATA U 1^ 1/ 2* 2* \* 2* 2* I* 2* 2* 2» 2» 2* 

910 DATA 1/ 2* 2, 2* 2* \, 2, I* \* 1/ 2> 2* \, 2* I* 2* 

920 DATA -9999 





2 

2 * 2 


Now all we need is a way of having the computer tell us what it has counted. 


50 ? ’’TOTAL VOTES:”; T<l)+T<2) 

60 ? "CANDIDATE 1:”; TCI) : ? "CANDIDATE 2:’’; TC2) 



DO IT 


So put it all together and RUN it. 


LIST 


10 READ V 

20 IF V=-9999 THEN 
30 T(V)=T<V>+1 


50 



40 GOTO 

10 









50 PRINT 

"TOTAL VOTES:”; 

T<1>+T(2) 







60 PRINT 

"CANDIDATE 1:”; 

TCI) 

: PRINT "CANDI 

DATE 2: 


TC2) 

900 DATA 

1* l» \» 2, \» 

•k 

CM 

2* 2* 

\* 2* 

2» 

2* 2* 

i> 

2» 

1* 2 

910 DATA 

1 / 2 j 2# 2# 2^ 

CM 

\* \* 

2* 

2» 

\* 1* 

CM 


2* 2* 


920 DATA -9999 


RUN 

TOTAL VOTES: 37 
CANDIDATE 1: 16 
CANDIDATE 2: 21 
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SALES REPORT 



Here is a slightly different way of using a one dimensional array. We call the 
program Sales Report By Territory. Nationwide Peddlers has six sales 
territories, with one or more salespersons in each territory. Each salesperson 
in each territory submits a quarterly report (that's once every 3 months). We 
want a program to summarize the sales by territory, regardless of how many 
sales reports are submitted by the sellers in each of the six territories. Each 
sales report tells (1) which territory the report is from, numbered 1 to 6 and 
(2) how much was sold (in dollars) by the salesperson. Our DATA statements 
will hold pairs of DATA, with the first number indicating territory and the 
second number indicating sales in dollars. 


100 DATA 
110 DATA 
120 DATA 


1/2350.. 
6 / 1240 / 
5/2010/ 


4/1750/ 
5/2450/ 
2/1370/ 


2 / 2000 / 

3/4200/ 

1/1350/ 


1/1345/ 
2/1275/ 
5/1710/ 


5/3200/ 
4/1100/ 
3/2500/ 





Note the double "end of DATA" 
flags, because the computer will 
READ two values at a time, and 
we wouldn't want an Out of Data 
error, now would we? 



3/1220/ 

4/1800 
-9999/-9999 


6/2100 
/ 3/900 


First we DIMension the T array, then READ S, D, where S = Sales territory 
number, and D is the Dollar sales for one salesperson in that territory. We 
use the subscript to sort the sales information by territory and keep track of 
the dollars in sales for each of the six sales territories (see Line 30). 

5 REM-SALES REPORT BY TERRITORY 
10 DIM TC6> 

20 READ S/D : IF D--9999 THEN 40 
30 T<S>=TCS)+D : GOTO 20 


Notice thatT(l) keeps track of the sales in dollars for territory 1,T(2) keeps 
a tally of the sales in dollars for territory 2, and so on up to T(6). 


T(1) 


T(2) 

IL 


T(6) 



The sales in Dollars for each territor\ 

(tallied by line 30) is the value of the 
subscripted variable T. But the num- 
oer of the Sales territory determines 
me value of the subscript. 

























r 



Now we want the computer to summarize the sales reports for us in a table 
of information. When the program is RUN, Lines 20 and 30 tally up the sales 
for each territory, with the subscript of T from 1 to 6 used to distinguish the 
territories. Next we need a heading for the sales report (Line 40). Then we 
need the territory number and the total sales made by all salespersons in that 
territory. A FOR-NEXT loop is the answer. The control variable is used to 
print the territory number, and to indicate which subscripted variable's value 
to PRINT (Line 50). 


40 PRINT "TERRITORVS "SALES" : PRINT 

50 FOR S=1 TO 6 : PRINT TAB(4); S* T(S> : NEXT S 

And while we're at it, let's get a figure for the total sales in all territories. 

Since we haven't used T(0) for anything, we use it to add up all the sales 
recorded in T(1) toT(6). 

Notice that we have used TAB twice in order to better position the output 
in this program. 

60 PRINT "TOTAL SALES"; 

70 FOR S=1 TO 6 : T<0)=T<0)+T<S> : NEXT S : PRINT TAB<13); T<0) 



DO IT 

Now put it all together and RUN it, provided you understand how the 
program works. 


NEW 


5 REM-SALES REPORT BY TERRITORY 
10 DIM T<6> 

20 READ S/D : IF D=-9999 THEN 40 
30 T<S)=T(S)+D : GOTO 20 
40 PRINT "TERRITORY”^ "SALES" : PRINT 
50 FOR S=1 TO 6 J PRINT TAB<4); 5, T<S) ; NEXT S 

60 PRINT "TOTAL SALES"; 

70 FOR S=1 TO 6 i T<0)=T<0)+T<S) : NEXT S : PRINT TAB(13); 

100 DATA 1/2350/ 4/ 1750/ 2/^2000/ 1/ 1345/ 5/3200/ 3/ 1220/ 6/2100 

110 DATA 6/1240/ 5/2450/ 3/4200/ 2/1275/ 4/1100/ 4/1800 /3/900 

120 DATA 5/2010/ 2/1370/ 1/1350/ 5/1710/ 3/2500/ -9999/-9999 



RUN 


TERRITORY 

SALES 

1 

$ 5045 

2 

S 4645 

3 

S 8820 

4 

S 4650 

5 

$ 9370 

6 

S 3340 

TOTAL SALES 

$ 35870 



T(0) 
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SALES AND SALARY REPORT 


In the next program called Sales and Salary Report, we are using a kind of 
example, which in larger and more complete form, would be a typical business 
application of computers, and you know that there is a lot of computing done 
by businesses of all sizes these days. In the SSR program, we use 3 different 
subscripted variables, as well as several regular variables and even a string 
variable. The boxes for the subscripted variables hold information related to 
eight items that Diligent Industries is peddling through its hot sales force of 
four salespersons. 



Each salesperson is selling the same 8 items. Each month the people on the 
sales force must each submit a report showing the quantity of each product 
or item sold. The monthly sales report could be a form like this; 


Name 



Branch Office 



Item 1 

Sales 

2 

3 

4 5 6 

7 

8 



Salesmen are paid a flat $700 per month plus 10% commission on sales over 
$3500 each month. 



As sales manager, we want our computerized report to show: (1) the total 
sales in dollars for each salesperson and (2) each salesperson's total salary 
based on the flat salary plus commission. We also want (3) to show how 
many of each item or product was sold, and (4) the total dollar income from 
the sale of each item by all salespersons that month. We also want (5) the 
grand total of all salaries paid out and all income from sales of Dl's great 
line of products. 
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1-^ 

1 * 

><■- 5 ? 

>f-» 

3f-S 

"♦■i 

)f^ 

)f^ 


Well, you can't tell the variables without a scorecard, and here it is to assist 

you in figuring out how this program works and why. 

P( ) the price of the 8 items marketed by Dl, which are entered into the 
subscripted variable boxes by Line 20, which READs the values into 
the P( ) list from the first DATA statement during 8 trips through 
the FOR-NEXT loop. Note that these prices for each item are the 
first 8 values in the DATA. 

Q( ) values are entered from the DATA statements, and the numbers stored 
in Q( ) list are the quantity of each of the 8 items sold by one sales¬ 
person. This list is temporary, because the same Q( ) is used to show 
the quantity sold of the 8 items for each of the four salespersons (one 
at a time). See the loop from Line 90 to Line 100 or 110. 

U( ) Units sold — used to keep a tally of the number of each item sold 

regardless of which salesperson sold it. In otherwords, it keeps a tally 
of the information that is held for a time in the Q( ) list. 

X We use it as the FOR-NEXT loops (FOR X = 1 TO 8 ... NEXT) to 
READ in values from DATA statements, and to give the subscript 
location for those values, that is, P(X), Q(X), and U(X). 

S keeps a tally of S4 — the total sales in dollars for all salespersons. 

51 keeps a tally of the total salaries paid out to all salespersons. 

52 is the grand total of all sales in dollars. 

53 is the salary of a salesperson if they sold over $3500 worth of items 
in this current monthly sales report. 

54 keeps a tally of total sales for each salesperson, one at a time, so S4 

has to be set back to zero after each salespersons sales have been 

figured (see Line 40), but it also tallies up the dollar value of the items 
sold (Line 80) and before it is set back to zero, the value tallied is 
added into S to get the total sales in dollars for the month. 

N$ used to hold the names of the salespersons for printing in the row 

summarizing their sales and salary, and READ from the DATA state¬ 
ment just before the item by item sales figures for the salesperson named. 


*** ★★★ *★★★*★* 

**★ ★★★ ★★★ 

******* 

*** ******* ******* 

*** ******* ★**★★★★ 

★★★ ★★★ 

*** **★*★★★ 
★★★ ★** 


******* ****** 
******* ******* 
******* ******* 
*** *** 
******* ****** 
★**★*★* ★★★★★★* 

★ **★ ★** *** 
* *** ★★★ ★★★*★*★ ★***★*★ 

* ★★★ ★** **♦ ******* Al^**** ******* ******* 

* ★★★ *** ****** ******* ««**** 


***** «***« ****** *** 

*** *** ******* ★«***★* **★«*★* 

*** ******* ★★**★*♦ ***★♦*♦ ******* 

★★★ *♦* ★★★ 

*♦* ♦♦♦ *** *** 
★★★ *♦* ♦♦♦★*♦ ♦** 

♦♦★★*** ******* *** ******* * 

★*♦**★* **★★♦*♦ 

**★ 

**♦ *** 







% 
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certain PRINT statement lines to suit your 
screen display or printer line lengths. Be 

pj£y sure to check lines 130, and 140. 

10 DIM P(8)/ V<8>* T<8)> Q<8).» N$<12) 

20 FOR X=1 TO 8 : READ P<X> : NEXT X 

30 PRINT ••SALESPERSON’S "TOTAL SALES’’^ "SALARY" 

40 S4s0 

50 READ N$ : IF N$="END" THEN 120 
60 FOR X=1 TO 8 : READ Q<X) 

70 U<X)=U(X)+Q<X) 

80 S4=S4 + Q<X)*P(X) : NEXT X 
90 PRINT N$> S4> 

S*S+S4 : IF S4<=3500 THEN PRINT 700 s 51*Sl+700 * GOTO 40 
S3=700+<(S4-3500>*.1) : PRINT S3 : S1=S1+S3 : GOTO 40 

PRINT : PRINT "TOTALS"^ S, SI : PRINT 

PRINT "ITEM", "PRICE/ITEM", "UNITS SOLD", "TOTAL SALES" 
FOR X=1 TO 8 : PRINT X, P<X), U<X), U(X)*P(X) 
S2=S2+U<X)*P<X) : NEXT X 

PRINT t PRINT "GRAND TOTAL OF SALES",, S2 
DATA 2.05, 18.45, 6.75, 9.95, 25.00, 16.50, 5.50, 12.60 
DATA D.MILLER, 120, 15, 75, 0, 20, 100, 80, 144 
DATA B.MIDLER, 160, 1, 90, 55, 16, 120, 96, 132 
DATA P.PADRE, 80, 10, 60, 40, 5, 75, 10, 55 
DATA A.XAVIER, 144, 60, 96, 96, 36, 144, 106, 90 
DATA END 


SALESPERSON 
D.MILLER 
B.MIDLER 
P.PADRE 
A.XAVIER 

TOTALS 



100 

110 

120 

130 

140 

150 

160 

200 

210 

220 

230 

240 

250 

RUN 





ITEM 

PRICE/ITEM 

UNITS SOLD 

TOTAL SA 

1 

2.05 

504 

1033.2 

2 

18.45 

86 

1586.7 

3 

6.75 

321 

2166.75 

4 

9.95 

191 

1900.45 

5 

25 

77 

1925 

6 

16.5 

439 

7243.5 

7 

5.5 

292 

1606 

8 

12.6 

421 

5304.6 

GRAND 

TOTAL OF SALES 


22766.2 


Extra for Experts: modify the program so that 
decimal points are aligned, and so that one or 
two zeros are added in the "cents" columns 
when needed to complete the "dollars and 
cents" format. If your version of BASIC has 
the PRINT USING statement, it can help do this job. 


$ 

$ 

& 
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CHAPTER 9 PROBLEMS 


1. Answer these questions about the Sales and Salary Report program and 
listing found in this chapter. 

(a) In which statement are the units sold added together?_ 

(b) What is done in Line 90? __ 

(c) Line 100 includes S = S+S4. What does that do?_ 

(d) In which statement is the salary computed?_ 

2. 5 FOR X = 1 TO 5 

10 READ A$(X), SIX) 

20 NEXT X 

30 DATA D. MILLER, 500, B. MIDLER, 950, P. PADRE, 1400 
40 DATA J. BLACK, 1500, L. FRENCH, 2000 

What will be found in these variables after running this program? 

A$(5) _ 

A$(2)_ 

SIS)_ 

SID_ 

3. 10 FOR N = 1 TO 8; READ A|N): NEXT N 
20 DATA 3, 5, 2, 16, 4, 5, 9, 7 

What will be the value in these variables after running this program? 

A|4)_A|7)_A|A|1)+A|5))_Iwatch it) 

A|3*A|3))_ 

4. When is it necessary to use a DIM statement?_ 

5. Your local computer club asks you to prepare the program that will 
count votes for the upcoming officer election. Here is the ballot. Write 
the program to accumulate votes and print a nice report Ido a nice job 
so all your fellow members will be impressed!). 

PRESIDENT VICE PRESIDENT TREASURER 

1. A. ABLE_ 1. M. MAC_ 1. S. SOBER_ 

2. B. BAKER_ 2. J. ROV,ER_ 2. T. MILSTON_ 

3. C JONES _ 3. M MANGI _ 3. G GONIF _ 

You should place the results from each ballot in DATA statements like 
this: 

DATA 2, 1, 3, 3, 2, 3 


more to come... 
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You have your school transcript in front of you. The college of your 
future choice says they will accept anyone with 75 A and B grades. 
Write a program to count your A's and B's. Place all your grades in 
DATA statements using this scale: 

A = 4 B = 3 C = 2 D=1 F(n/c) = 5 

Sample DATA statement: DATA 4,3,4,2,2,1,4,3 

Slot machine simplified: The string array exercise in this chapter with 
cherries and plums, etc. sets up a natural situation for a slot machine 
simulation (Nevada style). Write a program that simulates a simple 
machine and as your energy and interest allows, add to it to make it 
more sophisticated by fixing the odds, increasing the WIN chances, 
adding more money to the betting, etc. 

Simple form: From DATA statements read in to an array: CHERRY, 
BAR, PEACH, PLUM, APPLE. Then choose three of them randomly 
and print the results. 

If column 1 is a cherry, you win $0.05. 

If column 1 and 2 are the same you win $0.10. 

If column 1, 2 and 3 are the same you win $0.25. 

If columns 1, 2, and 3 are BAR, you win whatever is in the "kitty." 
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If you've been roaring through this book, now might be a good time for a 
breather. It is important that you feel a comfortable understanding of 
subscripted variables. Have you tried the example programs? Do you 
understand how subscripted variables store values? Have you tried out any 
ideas of your own that use subscripted variables? If you need to review, 
now is the time, because we're about to hit you with an expanded form of 
subscripted variables. 


Up to now, we have used subscripted variables such as P(8) and T{D). These 
are singly subscripted variables. That is, each variable has exactly one 
subscript. 


P(8) 



Y$(X) 


Now we have a new one to spring on you, doubly subscripted variables, 
variables that have two subscripts. 


P{2,3) 



Y$(2,5) T(A,B) 

Two subscripts. 


The subscripts are separated with a comma. An easy way to think about 
doubly subscripted variables is with those little boxes arranged in an array 
of rows and columns, like this; 

Presenting our doubly subscripted variable A(4,3) 


Row 1 


Row 2 


Row 3 


Row 4 


Column 1 

Column 2 

Column 3 

A(1,1) 

0 


A{1,2) 

0 


Ad,3) 

0 




A(2,1) 

0 


A{2,2) 

0 


A(2,3) 

0 




A(3,1) 

0 


A(3,2) 

0 


A(3,3) 

0 




A(4J) 

0 


A(4,2) 

0 


A(4,3) 

0 


A(4,3) 

Rot/| 

Column 


The boxes show that all the values assigned to the variables in this 
two-dimensional array are zero. 
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This stacked up arrangement allows us to relate subscripts to particular locations 
or "boxes” for holding values in rows and columns. Want some vocabulary? 

The rectangular arrangement of doubly subscripted variables in rows and columns 
is called a table or matrix, or two-dimensional array. Remember that an array 
of singly subscripted variables is a list or one-dimensional array. 


This is a list or a 
one-dimensional 
array. 



B(0) 


B(1) 


B(2) 


B(3) 



One subscript, one dimension. 



This is called a table, or two-dimensional array, or matrix: 


A (0,0) 


A(0,1) 


A(0,2) 


A(0,3) 


A(0,4) 


A(0,5) 


Ad.O) 


A(1,1) 


A(1,2) 


A(1,3) 


A(1,4) 


A(1,5) 


A(2,0) 


A(2,1) 


A(2,2) 


A{2,3) 


A(2,4) 


A(2,5) 


A(3,0) 


A(3,1) 


A(3,2) 


A{3,3) 


A{3,4) 


A(3,5) 


A(4,0) 


A(4,1) 


A(4,2) 


A(4,3) 


A(4,4) 


A(4,5) 



t t 

Two subscripts 

Two dimensions 


Just as for singly subscripted variables, those with two subscripts can have 
subscripts starting at zero. Up to 30 values or strings may be assigned to this 
particular array, each identified by its own subscripted variable. Of course, 
if it were a string array, there would be a $ after the A's like this; A$(3,4). 

Arrays created by using variables with double subscripts are handy for storing 
data in the computer. You must tell the computer what the maximum 
DIMensions of your doubly subscripted variables will be. You may use the 
same DIM statement to dimension all variables in one statement, whether 
string variables, singly or doubly subscripted variables; 


20 DIM C(3,4), X$(15), Y(12), M$(F,S) 


line number 





2 dim 1 dim 1 dim 2 dim 

array string array string 


array array 


The exceptions (what, again?)—if things aren't working right when you use DIM, 
refer to pages 25, 27, 142, 143, and the reference manual for your BASIC. 


************************* 
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Are you getting the idea? A doubly subscripted variable is simply the name of 
a box or location in the computer where you can store a value or a string, just 
like the other variables you have used. Just as a singly subscripted variable may 
have a variable as a subscript, a doubly subscripted variable may have both its 
subscripts as variables, or even expressions to be calculated. 

Of course, the computer must have some way of knowing the value of variables 
used as subscripts. For practice, fill in the blanks for the subscripted variables 
in the boxes, with the subscript values. 


B(K,2) = 365 
K = 8 

C(R,C) = 4 
R = 0 
C = 3 

F$(N-1, K*2) = "HOT 
N = 3 
K = 2 


K 

8 

B(_2) 

365 

kX 

R 

0 

C 

3 

C(_) 

4 

Xc 

N 

3 

K 

2 

1 

1 

LL 

HOT 

^ V 

N-1 \ 

*2 


Note that the single 
numeric variable C 
is different from the 
subscripted variable 
C(R,C). 







NEW 


5 REM-DOUBLE SUBSCRIPT 
10 DIM C(2#3> 

20 READ C<0/0)/ C(0> 

30 READ C( 1/0)^ ecu 
40 READ C(2^0>« C(2/ 

50 ? C<0.»0)/ C(0^ 1 )# 

60 ? C(1^0)/ C( 1/ 1 >/ 

70 ? C<2,0>^ C<2,1)/ 
100 DATA S* \Z* 88< 


DEMO 


!>/ C(0«2>« C(0«3) 
1), C<U2)> C<l/3) 
1), CC2^2)/ C(2,3) 
C(0^2)> C(0/3> 
C(l/2)/ CCl/3} 
C(2^2)> C(2«3> 
-19^ 100/ 8.25/ 


91/ 22/ -1.5/ 15/ 9. 


RUN 

5 

100 

-1.5 


10 

8.25 

15 
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88 

91 

9 


19 

22 

2 










































































































Now fill in the values assigned to these subscripted variables by the last program. 
We did the first two. 


C(0,0) 

5 

C(0,1) 

10 

C(0,2) 


C(0,3) 


C(L0) 


C(1,1) 


C(1,2) 


C(1,3) 


C(2,0) 


C(2,1) 


C(2,2) 


C(2,3) 



DO IT; 


Now let's start automating. As we did with one-dimensional arrays before, we 
use FOR-NEXT loops to give values to the subscripts, and thus tell the com¬ 
puter which subscripted variable it is to deal with. But now we have 2 sub¬ 
scripts, so we use nested FOR-NEXT loops to go through the possible values. 

Replace Lines 50, 60, and 70 in the last program, and add Line 80. 


50 FOR R=0 TO 
60 FOR C*0 TO 
70 ? ’•cc"; r; 
80 NEXT C : ? 
LIST 


• • • p • f 

NEXT R 


5 REM-DOUBLE SUBSCRIPT DEMO 
10 DIM CC2«3) 

20 READ C(0«0>/ C(0^1>> C(0^2>/ C(0#3} 

30 READ C(l«0>4 C(U2)^ C(l/3> 

40 READ C(2«0>> C(2«l}/ C(2«2)^ C(2>3} 

50 FOR R=0 TO 2 

60 FOR C=0 TO 3 

70 PRINT "CC”; r; c; ••)»••; ccr^o; •• *•; 

80 NEXT C : PRINT t NEXT R 
100 DATA 5/ 10^ 88* -19, 100, 8.25, 91, 22, -1.5, 15, 9, 




80 NEXT C : ? : NEXT R 

Used^o^cancer' 
the ; at the end 
of Line 70 and 
start a new line 
of output. 


Did you have trouble entering Line 70 correctly? Let's look at it more closely. 


70 


The first part of 
the subscripted 
variable notation. 



c; 


PRINT the 
comma used 
to separate 
subscripts. 


Value of 
first subscript. 

Lots of extra semicolons here that could 
be omitted in some versions of BASIC. 


/ — 

V 


C(R,c>; 


The subscript 

parentheses 

closed. 


Value of 

second 

subscript. 


Leave spaces 
‘ between the 
subscripted 
variables and 
values. 

PRINT the 
value assigned 
to this subscript 
variable. 


^ A 


Stay on the 
same line. 


In some of the spiffier BASICs, 
you don't have to put in all 
those semicolons 


159 
























iMHiii 


iMIiaiflttllBMIlHM 





Now RUN the program. 

RUN 

C( 0 ^ 0 )= 5 C( 0 / I )= 10 C< 0 # 2 )= 88 C< 0 / 3 )*-19 

C< 1 ^ 0 )= 100 C< 1 , 1 )= 8.25 C< 1 > 2 )* 91 C< 1 / 3 )= 22 

C< 2 > 0 )=-1.5 C( 2 , 1 )= 15 C( 2 # 2 )= 9 C< 2 , 3 )» 2 



Well, I suppose you have guessed it. The next step is to automate the assign¬ 
ment of values to variables with double subscripts. So let's modify the program 
again, to automatically go through the C array and assign values to all those 
subscripted variables. 

DO IT 

Replace Lines 20, 30 and 40 with these nested FOR-NEXT loops. 


20 FOR R»0 TO 2 ; FOR C=0 TO 3 
30 READ C(R*C> 

40 NEXT C/R 
LIST 

5 REM-DOUBLE SUBSCRIPT DEMO 
10 DIM C<2«3} 

20 FOR R*0 TO 2 : FOR C»0 TO 3 
30 READ CCR^C) 

40 NEXT C^R 
50 FOR R=0 TO 2 
60 FOR C=0 TO 3 

70 PRINT "cc"; r; c; ”>=••; ccr/O; •* 

80 NEXT C J PRINT i NEXT R 

100 DATA 5* 12, 88/ -19/ 100/ 8.25/ 91/ 22/ -1.5/ 15/ 9/ 2 
RUN 

C< 0 / 0 >» 5 C< 0 / 1 )» 10 C< 0 / 2 )» 88 C< 0 / 3 )*-19 

C( 1 / 0 >» 100 C< 1 / 1 >» 8.25 C< 1 / 2 >» 91 C( 1 / 3 22 

C< 2 / 0 >=-1.5 C( 2 / 1 )= 15 C( 2 / 2 )= 9 C( 2 / 3 >* 2 































SUraCTALLy 




Let's go back to our vote counting program. Using variables with double 
subscripts allows us to add another dimension to tally or count up for us. 
Our new questionaire asks "Who did you vote for in the last election?" 


5 

^ Question 1: Who did you 

Question 2: Circle the 


N vote for in the last election? 

number by your age 

S 

N Circle the number by your 

group. 

S 

N choice. 

1. 18-29 


N 1. Powerman 

2. 30 - 39 

s 

N 2. Moneyman 

3. 40 - 49 

s 

N 3. Other 

4. 50 or over 




We want to write a program to summarize the data gathered from this poll. 
Note that there are two questions, and 3 possible answers for the first, and 
4 possible answers for the second. Any one questionaire yeilds two answers, 
the answer to Question 1 (which can be a 1, 2 or 3), and the answer to 
Question 2 (which can be a 1, 2, 3, or 4.) Qbviously we want to know the 
answers as related to age groups, as well as the totals of votes in each category 
from Question 1 for all age groups, just like the big time pollsters. (Gallup 
Poll has nothing on us!) 


Remember how we used the subscript of a variable to decide which category 
to tally a vote in? 




»/,;-sniTih //f w 

P4>p0ndrikojwii}iiSi 

|HF ?1 

Turovich 

||;:KowalsKi 
!ifc.Vchriczanevic2 lui'l 
pi Knutson jJ ’ 
KOonzaies 


^ctoyljber^loan 


Now we have two answers to tally, so we use a two dimensional array. 


18 — 29 30 — 39 40 — 49 50 or over 


Powerman 

C(1,1) 

1 

C(1,2) 



C(1,3) 



C(1,4) 








Moneyman 

C(2J) 



C(2,2) 



C(2,3) 



C(2,4) 








Other 

C(3,1) 



C(3,2) 



C(3,3) 



C(3,4) 
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Since there are two questions, our DATA for each reply consists of two numbers— 
the answer to Question 1 (we use V for Vote) and the answer to Question 2 
(we use A for Age group). 

There are 12 possible combinations of answers. A vote of 1 (for Powerman) by 
someone in age group 1 (18 — 29) gives us this pair of answers: 1,1. A vote 
of 3 (for Other) by someone in age group 2 (30 — 39) gives us this pair of 
answers: 3,2. Are you beginning to see how a doubly-subscripted variable in 
array C(V,A) can be used to tally the 12 possible combinations of answers to 
the questionaire? 

Since there are 3 possible answers to Question 1, and 4 possible age categories for 
each respondent, we need a 3 by 4 array, and we'll start off the program with a 
DIM statement. 

10 DIM C(3.»4) 

We will READ V,A from DATA statements. Just to help make things clear, we 
have the responses to the questionaires coded by number in pairs in the DATA 
statements. Here are the replies to our questionaire. Remember, each reply is 
a pair of numbers. 



900 

910 

DATA 

DATA 

\* 

3* 

2/ 

1*3* 

3*2* 

2j 

2*3* 

2*^* 

CO 

CVI CM 

3 * 2 * 

1 * 3 * 

3*4* 

2*4* 

2*3* 

1*4* 

2 j 3> 

2j2 

3*2* 

1*4 

920 

DATA 

2 , 

1 , 

2 * 2 * 

3/ 2 * 

2* a* 

\* 2 * 

1 ^ 3> 

2*4* 

1*4* 

2j 3 j 

1 j 

3*3 



We need a flag to signal the end of the DATA. However, since we are reading 
two values at a time (READ V,A) from the DATA, we need two flags so that 
the computer will not give us an OD ERROR message. Also we need a 
statement to check for the flag, and tell the computer where to branch to if 
it has finished reading all the DATA. 

20 READ V^A : IF A»-9999 THEN 40 W)0t>v.t 

930 DATA - 9999 / -9999 


Naturally we want the computer to do the counting. So we need a statement 
telling the computer to tally the response to each questionaire in the box for 
the proper subscripted variable. Remember, each response is a pair of answers] 
the Vote and the Age group. Then we want the computer to branch back an 
READ the next pair of values. 

30 C<V,A)*C<V*A>+1 : GOTO 20 
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So far, this much of the program (plus the DATA statements) will count all 
the responses to the questionaire. 


LIST 

5 REM-VOTE COUNTING WITH TWO-DIMENSIONAL ARRAY 
10 DIM C(3#4) 

20 READ V/A : IF A--9999 THEN 40 
30 C<V^A)=C<V>A)+1 : GOTO 20 


900 

910 

DATA 

DATA 

1/2/ 

3^1/ 

1 / 3/ 2/ 2/ 
3/2/ 1/4/ 

2/3/ 
2/ 4/ 

2> 1 ^ 

3/2/ 

1/3/ 

3/4/ 

2/4/ 

2/3/ 

1/4/ 

2/3/ 

2/2 

3# 2> 

1/4 

920 

930 

DATA 

DATA 

2/ 1 j 

-9999 

2/ 2/ 3/ 2/ 

/ -9999 

2/4/ 

U2^ 

1/3/ 

2/4/ 

1/4/ 

2/3/ 

3/ 1 # 

3/3 


The next section of the program must tell the computer to tell us what it has 
counted. We want the following information when the program is RUN. 

RUN 

CANDIDATE 18-29 30-39 40-49 50 ♦ 


POWERMAN 

MONEYMAN 

OTHER 



0 

2 

2 


2 

3 

4 


3 

5 

1 


4 

4 

1 


First a statement to print the headings and a blank line. Substitute semicolons 
and TABS for the commas, if you are working with a 40 column display or printer. 

40 ? "CANDIDATE"/ "18-29"/ "30-39"/ "40-49"/ "50 +" \ ? 


And now the information stored in the C array. If you guessed that we will 
use nested FOR-NEXT loops, you are as brilliant as you look. But what about 
the candidates' names? Let's put those in a DATA statement, and assign them 
to a string variable, C$. If we place the READ C$ : PRINT C$ instructions 
inside the first loop, but before the second loop, they will be printed at the 
beginning of each line in the table. See page 106. 

50 FOR V=1 TO 3 : READ CS : ? C$/ 

60 FOR A=1 TO 4 : ? C(V/A)/ t NEXT A/V 

940 DATA POWERMAN/ MONEYMAN/ OTHER 



You can automate the TAB settings inside the loops (for printing the C array 
values under the proper headings within a 40 column format) with this technique: 


50 FOR V = 
60 FOR A = 
^ NEXT A ; 


1 TO 3 s 
1 TO 4 : 
NEXT V 


READ C« : 
? TAB<M>; 


? C*! ! 

C(V,A> 5 


LET M = 8 
s LET M = 


M 


8 
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Now put it all together and RUN it. 


LIST 


5 REM-VOTE COUNTING WITH TWO-DIMENSIONAL ARRAY 
10 DIM C(3/4) 

20 READ V*A : IF A=-9999 THEN 40 
30 C<V#A)=C(V^A)+1 : GOTO 20 



40 PRINT 

"CANDIDATE", " 

18-29 

", "30 

-39", 

"40 

-49", 

"50 +" t 1 

PRINT 

50 FOR V= 

1 TO 

3 : READ 

CS : 

PRINT 

CS 






60 FOR A= 

1 TO 

4 : PRINT 

C<V, 

A>, : 

NEXT 

A, V 




900 DATA 

1,2, 

1,3, 2,2, 

2,3, 

2,1, 

3, 

2/ 

3>4, 

2,3, 

2, 3, 3, 2, 

1,4 

910 DATA 

3, 1, 

3,2, 1,4, 

2,4, 

2, 3, 

1, 

3^ 

2,4, 

1,4, 

2,2 


920 DATA 

2,1, 

2,2, 3,2, 

2,4, 

1,2, 

1, 

3^ 

2,4, 

1,4, 

2,3, 3,1, 

3,3 

930 DATA 

-9999 

, -9999 









940 DATA 

POWERMAN, MONEYMAN, 

OTHER 






RUN 











CANDIDATE 

18-29 


30-39 



40-49 

50 

+ 

POWERMAN 


0 


2 




3 

4 


MONEYMAN 


2 


3 




5 

4 


OTHER 


2 


4 




1 

1 





Let's get a little more information out of this collection of data. Let's have 
the computer give us the totals for each of the three answers to Question 1 
regardless of age group. 

Since we have not used the subscript zero in the doubly subscripted variable 
C(V,A), we have those "boxes" still free to hold information for us. So we 
will use C(1,0), C{2,0) and C(3,0) to tally up the votes or answers to each 
choice in Question 1 regardless of age group. Note that we use the FQR 
variable V to print which of the three choices in being reported to us (Line 80). 

We could have added another DATA statement identical to 940, and used 
READ C$ : PRINT C$ as in Line 50. We leave the choice up to you. 


DO IT 


Add these lines to the previous program and RUN the new version. 



70 ? : ? "TOTALS:" 

80 FOR V*l TO 3 s ? "ANSWER"; V; 

90 FOR A=I TO 4 : C < V.» 0 ) »C< V> 0 >+C ( V/A) : NEXT A 

100 ? C<V^0) : NEXT V 

RUN 

CANDIDATE 18-29 30-39 40-49 50 + 


POWERMAN 

MONEYMAN 

OTHER 

TOTALS: 
ANSWER 1 
ANSWER 2 
ANSWER 3 
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There is one more peice of information that we might want to have reported: 
the total number of people answering the questionaire. Let's just add on one 
more little program segment. Again we take advantage of the fact that we 
haven't used all the locations of the C(V,A) array with zero as subscript. To 
tally the C(V,0) values and store the total number of respondents to our poll, 
in C(0,0), we use anosther FOR-NEXT loop. 


U0 ? "TOTAL POLLEDt"; 

120 FOR V=1 TO 3 t C<0^0)=C<0/0)+C<V>0) t NEXT V : ? C<0^0) 
RUN 

CANDIDATE 18-29 30-39 40-49 50 + 


POWERMAN 0 
MONEYMAN 2 
OTHER 2 


2 3 4 

3 5 4 

4 1 1 


TOTALS: 

ANSWER 1 : 9 
ANSWER 2 : 14 
ANSWER 3 : 8 
TOTAL POLLED: 31 




You can fix the report display 
format produced by this 
program by modifying certain 
PRINT statement lines to suit 
your screen display or printer 
line lengths. 


Of course there are other kinds of information that we might get from this 
data and our program, with further additions. You might write a routine 
(program segment) to tally how many people in each age group was polled. 
If you know statistics, you might try writing some routines to provide a 
statistical analysis of the program, or percentages in the various catagories. 
Use your imagination plus the knowledge of BASIC that you have worked 
on hard to learn. 



Other Dimensions 

You don't have to stop with 2 dimensional arrays. In fact, many Microsoft BASICs 
allow up to 255 dimensions. 

However, because of the limitations on the size of a statement line, you can't 
always get that many dimensions into a statement. 
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Here is another interesting use for arrays. In this case, when an event has 
occurred in the program, the computer "marks" the appropriate box in an 
array. This next programming project is a program that randomly "deals 
a card" from a deck of playing cards. 

"The deck" is actually a 4 by 13 array with a box representing each of the 
13 cards in 4 suits. 


The Array D(4,13), with all values set to zero, as at the beginning of a RUN. 


C(1,1) 

0 

C(1,2) 

0 

C(1,3) 

0 

C(1,4) 

0 

C(1,5) 

0 

C(1,6) 

0 

C{1,7) 

0 

C(1,8) 

0 

C(1,9) 

0 

C{1,10) 

0 

C{1,11) 

0 

C{1,12) 

0 

C(1,13) 

0 

C(2,1) 

0 

C(2,2) 

0 

C(2,3) 

0 

C(2,4) 

0 

C(2,5) 

0 

C{2,6) 

0 

C(2,7) 

0 

C{2,8) 

0 

C(2,9) 

0 

C(2,10) 

0 

C(2,11) 

0 

C(2,12) 

0 

C{2,13) 

0 

C(3,1) 

0 

C(3,2) 

0 

C(3,3) 

0 

C(3,4) 

0 

C(3,5) 

0 

C(3,6) 

0 

C(3,7) 

0 

C{3,8) 

0 

C(3,9) 

0 

C{3,10) 

0 

C(3,11) 

0 

C(3,12) 

0 

C(3,13) 

0 

C(4,1) 

0 

C(4,2) 

0 

C(4,3) 

0 

C(4,4) 

0 

C(4,5) 

0 

C(4,6) 

0 

C{4,7) 

0 

C(4,8) 

0 

C(4,9) 

0 

C{4,10) 

0 

C{4,11) 

0 

C{4,12) 

0 

C(4.13) 

0 


When the program is RUN, the computer "marks" the right box in the array 
with a —1 to show that the card has been dealt, and then prints the card and 
suit. We will have our program deal five cards, such as a poker hand. q 

The variables: 

H.the FOR-NEXT loop control variable to count to five for dealing 

five cards. [5 





V 



ghat's this? Weil, read on and well explain. 











































































































































































































D(4,13)...the subscripted variable to keep track of which cards have been 


dealt by checking and "marking" in an array, so that the computer 
will not deal the same card twice. There are 13 cards in 4 suits — 
note the subscripts in the array D(4,13). The value of the subscripts 
are determined by two RND numbers, and that is how the computer 
will know which card is being dealt. 

J.the suit of the card to be dealt (See Line 110). 

K.the number (1 to 13) of the card to be dealt. See line 100. 


99 REM-CARD DEALING SUBROUTINE^ LINES 100*330 

100 K>INT( 13«RNO( 1 > }-*>l 
110 J»INT<4*RND(1))+l 

120 IF D<J,K)=-1 THEN 100 
130 D<J.»K) = -1 


In Line 130, the values of J and K determine which D(J,K) box will be 
marked or set to —1. We could have used any value other than zero to 
indicate that a particular box has been changed from zero. But before the 
box is marked —1, the computer checks to see if that "card" has already been 
dealt, that is, if the box for D(J,K) was already marked with a —1. Line 120 
sends the computer back to try again with another set of RND numbers if 
there was already a —1 marked in the box. 

In this program, each card has a number for its face value, "selected" at 
random from 1 to 13 by Line 100. 

100 K«INT(13*RND(1>>-M 

Number: 1 2 3 4‘ 5 6 7 8 

Card; Ace 2 3 4 *5 6 7 8 

Each card has a number (1 to 4) for its suit, selected 

110 J=INT<4*RND<1))+l 

Number: 12 3 4 

Suit: clubs spades hearts diamonds 

Line 120 checks to make sure that card D(J,K) hasn't been dealt, and if it 
hasn't. Line 130 notes with a —1 that it is about to deal card D(J,K). 


9 10 11 12 13 

9 10 JACK QUEEN KING 

at random by Line 110. 
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subroutine 



9ftl 


5 HEM-POKER DEALER 
10 DIM D(4>13) 

20 FOR H=1 TO 5 : GOSUB 
30 NEXT H 


100 


n 


99 

100 
110 
120 
130 
140 
150 
200 
210 
220 
230 
240 
300 
310 
320 
330 


The main action in the program (Lines 100 to 330) is executed 5 times, in 
order to deal 5 cards. Here is the rest of the subroutine that deals or 
prints the cards. 

LINES 100-330 



REM-CARD DEALING SUBROUTINE/ 

K=INT<13*RND<1))+l 
J=INT(44cRND< 1 ) ) + l 
IF D(J/K)=-1 THEN 100 
D(J/K)=-1 

ON K GOTO 200/210/210/210/210/210/210/210/210/210/220/230/240 
O.N J GOTO 300/310/320/330 


? ’• ACE 
? K; : GOTO 
? " JACK ; 

? " QUEEN : 
? ” KING : 

? ”0F CLUBS*' ; 
? "OF SPADES" 

? "OF HEARTS" 

? "OF DIAMONDS 


GOTO 150 
150 

; GOTO 150 
: GOTO 150 
: GOTO 150 
; RETURN 
" : RETURN 
" : RETURN 

! RETURN 



Efi SEEr^EEIinES 


We use the GOSUB statement to "call" the "card dealing subroutine" in 
the program. Lines 100 to 330. The GOSUB statement is between the FOR 
and the NEXT statements (Lines 10 and 20). This has the effect of sticking 
the card dealing subroutine part of the program between the FOR and NEXT 
statements, and in our program, that means that the subroutine is "called" 
and executed 5 times during the 5 trips through the FOR-NEXT loop. 

GOSUB must be followed by a line number (just like the GO TO statement) 
that tells the computer where the subroutine starts. The computer GOes 
to the 5C/g routine that begins at the line indicated, and keeps RUNning 
the program statement by statement, until it comes to a RETURN statement. 

Like FOR and NEXT, and READ and DATA, the GOSUB statement must 
always have a matching RETURN statement. RETURN is always the last 
statement in a subroutine. The RETURN statement tells the computer that 
it has finished the subroutine, and to RETURN to the next line in the pro¬ 
gram after the GOSUB statement. Therefore, the GOSUB (as well as the 
RETURN statement) must always be the last statement in a line with 
multiple statements. It happens that our card dealing subroutine can end 
at any of four different statements ( Lines 300 — 330), so in this particular 
case the computer will RETURN to the line after the GOSUB statement 
after it has executed any one of the four statements on Lines 300 to 330. 

But notice we were careful not to put the Line 30 NEXT H on the same line 
as the GOSUB statement. If we had, it would have missed the NEXT H 
statement when it RETURNed in some versions of BASIC. 
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Lines 140 and 150 introduce the ON ... GOTO statement. 


ON_GOTO 

icpression 


A variabi^^^r 
to calculate. 


- / - / - / - / - / - 

t t t t t t 

All these must be line numbers 
that are in the program, and 
they must be separated by commas. 


As many line numbers as can fit in a statement line, can follow an ON ...GOTO 
statement. If the ON ... GOTO variable is 1, then the computer GOes TO 
the first line number. If the variable value is 2, then it goes to the second line 
number listed, and so on. However, if the value of the ON ... GOTO variable 
is negative, or is zero, OR is bigger than the number of line numbers after 
GOTO, then the computer just skips on ("falls through the statement," they 
say) to the next line numbered statement in the program in some BASICS. 

This is handy, because you may wish to use more line numbers then will fit 
in one line. The trick is this: Say that only the first 10 line numbers in 
Line 140 actually fit on the line — 


140 ON K GOTO 200^210>210«210«2I0>210^210>210«210«210 


We leftoff the last 3 lines numbers, pretending they wouldn't fit. We tell our 
next ON ... GOTO variable to pick up where the last one left off, like this: 


145 ON K-10 GOTO 220/230^240 



Subtract the largest possible 
value of K for the last line. 
K would have to be greater 
than 10 in order to "fall 
through" the last statement 
and arrive at this line. 



Like GOSUB and RETURN, ON ... GOTO must be the last statement if used 
in a multiple statement line, or else it must stand alone. 


In Line 140 we find 


140 ON K GOTO 200/210/210/210/210/210/210/210/210/210/220/230/240 



This line selects which statement will be used to PRINT the card selected. 

If K = 1, then the computer goes to Line 200 and prints ACE. If K = 2, 

3, 4, 5, 6, 7, 8, 9, or 10, then the computer is sent to Line 210 and prints 
the value of K (the number of the card being dealt). If K= 11, 12, or 13, 
the computer goes to Lines 220, 230 or 240 and prints JACK, QUEEN, or 
KING. 

Notice that ON ... GOTO can sometimes substitute for bunches of I F...THEN 
statements. 

The ON ... GOTO statement in Line 150 selects the name of the suit to be 
printed. We sure got double duty out of those RND value for J and K, 
didn't we? 
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One more refinement, and then you can try out the program. These state¬ 
ments go after the FOR ... NEXT loop, and are not part of the GOSUB 100 
card dealing subroutine. 


(The YES . . . NO tester from page 123 could be used here.) 


40 ? : INPUT "ANOTHER HAND, SAME DECK"; A$ t IF A$="YES" THEN 20 
50 ? t INPUT "ANOTHER HAND, NEW DECK"; A$ : IF A$="N0" THEN END 
60 FOR J=l TO 4 : FOR K=1 TO 13 : D<J,K)=0 : NEXT K,J * GOTO 20 


Line 60 is executed or?//if the answer to "ANOTHER HAND, SAME DECK" 
is not YES (IF ... THEN condition false), and if the answer to "ANOTHER 
HAND, NEW DECK" is not NO (IF ... THEN condition false). 

Then Line 60 uses nested FOR-NEXT loops to set all the values in the D 
array back to zero. 

Last minute notes on GOSUB. 

You may have subroutines within subroutines, that is, GOSUB's inside of 
GOSUB's, just like nested FOR-NEXT loops. The first RETURN statement 
that is encountered RETURNS the program to the line after the last GOSUB 
statement executed. Makes sense, no? As another tidbit of knowledge, we 
should inform you that the ON ... GOTO statement has a close cousin, the 
ON ... GOSUB statement. We could have used it in the card dealing program 
replacing the following lines: 

140 ON K GOSUB 200,210,210,210,210,210,210,210,210,210,220,230,240 

200 ? " ACE "; : RETURN 

210 ? K; : RETURN 

220 ? " JACK t RETURN 

230 ? " QUEEN ",* t RETURN 

240 ? " KING "; : RETURN 


For this program, it is just like having a subroutine within a subroutine, 
except that the ON ... GOSUB statement was used in the "inside" sub¬ 
routine. No matter which line the ON K GOSUB ... sends the computer 
to, it will RETURN to Line 150 (the line after the last GOSUB), because 
we have placed a RETURN command at the end of all the lines that the 
GOSUB could go to. 
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Now that the way this program works iscrystal clear (better re-read if it 
isn't, and check the explanations with the program), go ahead and RUN it. 

















































































a 


5 REM-POKER DEALER 
10 DIM D<4>13) 

20 FOR H«1 TO 5 t 60SUB 100 
30 NEXT H 

40 PRINT : INPUT "ANOTHER HAND# 
50 PRINT : INPUT "ANOTHER HAND# 
60 FOR J»1 TO 4 ; FOR K» 1 TO 13 

99 REM-CARD DEALING SUBROUTINE# 

100 K»INT<13*RND<1))+1 



SAME DECK"; A$ : IF A$*"YES" THEN 20 
NEW DECK"; A$ : IF A$="NO" THEN END 
t D(J#K>-0 t NEXT K#J t GOTO 20 
LINES 100-330 k 


110 J=INT<4*RND<1))+1 
120 IF D<J#K)»-1 THEN 100 
130 D<J#K>=-1 

140 ON K GOTO 200#210#210#210#210#2 
150 ON J GOTO 300#310#320#330 
200 PRINT " ACE "; * GOTO 150 
210 PRINT K; : GOTO 150 
220 PRINT " JACK "; : GOTO 150 
230 PRINT " QUEEN "; : GOTO 150 
240 PRINT " KING "; : GOTO 150 
300 PRINT "OF CLUBS” * RETURN 
310 PRINT "OF SPADES" : RETURN 
320 PRINT "OF HEARTS” : RETURN 
330 PRINT "OF DIAMONDS" : RETURN 


You may need two separate 
NEXT statements here in 
non-Microsoft BASICs. 

0# 210# 210# 210# 210# 220# 230# 240 



RUN 

QUEEN OF HEARTS 
8 OF HEARTS 
KING OF DIAMONDS 
10 OF HEARTS 
6 OF SPADES 


EXTRA FOR EXPERTS: Expand the program so that the computer keeps 
count of the number of cards dealt, and automatically "shuffles the deck" 
(sets the array to all zeros) after 52 cards are dealt and before the computer 
tries to deal the 53rd card. In this program, the computer will loop from 
120 to 100 forever looking for a place without a —1 in the array, after 
dealing 52 cards. How about a program to deal blackjack, or score poker 
hands? 


ANOTHER HAND# SAME DECK? YES 

3 OF HEARTS 

4 OF CLUBS 
JACK OF SPADES 
9 OF HEARTS 

2 OF DIAMONDS 

ANOTHER HAND# SAME DECK? NO 

ANOTHER HAND# NEW DECK? YES 
JACK OF DIAMONDS 
8 OF SPADES 
JACK OF CLUBS 
7 OF CLUBS 
QUEEN OF DIAMONDS 

ANOTHER HAND# SAME DECK? YES 
QUEEN OF HEARTS 

6 OF SPADES 

3 OF CLUBS 

4 OF SPADES 

7 OF DIAMONDS 



The ON . . . GOTO . . . card 
printing routines could be 
graphics-producing routines 
instead, to generate playing 
icard faces for screen display. 


ANOTHER HAND# SAME DECK? NO 


ANOTHER HAND# NEW DECK? NO 
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GOSUB/RETURN 

Causes program to jump or branch to specified statement until a RETURN 
is encountered at which point the program branches back to the statement 
following the GOSUB. 

10 GOSUB 200 

20 PRINT “END OF SUBROUTINE DEMO” 

30 END (Use STOP or END to separate program from subroutines) 
200 REM - SUBROUTINE 
210 PRINT “THIS IS A SUBROUTINE” 

220 RETURN 


DIM 

Allocates space for arrays, matrices, or string matrices and sets all matrix 
elements to zero. All subscripts start at zero if no DIM, matrix is assumed 
to be 11 elements (0 — 10). 

DIM (variable) (N) (variable) (N,M)... 

10 DIM A(3),B(5,10) 

20 DIMN$(10,10) 

Dynamic DIMension 

ION = 30 
20 DIM X(N*30) 

BASIC PLUS only 

DIM A$(3) — indicates the number of strings, not length of one. 


ON - GOTO 

Jumps or branches (GOSUB) to the statement number indicated by the Nth 
number after the GOTO. 

line no. ON (variable) GOTO line no., line no., line no., 

10 ON N GOTO 100, 200, 300 

If N = 1 control jumps to Line 100 
If N = 2 control jumps to Line 200 
etc. 

20 ON N GOSUB 100, 200, 300 

Same as above except RETURN from GOSUB branches 
back to statement following ON GOSUB. 









FUNCTIONS 

RND(X) — generates a random number between 0 and 1 
For RND in Microsoft-style BASICs, see pages 110-119. 

Following functions apply to most versions of BASIC. 

LEN(B$) — gives an integer equal to the number of characters in the 
string variable. 

DBF FNA(A) — define your own function. 

ABS(X) — gives absolute value of expression X. 

INT(X) — gives largest integer less than or equal to argument X. 

TAB(X) — spaces to the specified print column. 

USR(X) — calls machine language subroutine X. 

FRE(O) — gives the number of bytes unused in memory. 

SPC(X) — prints X number of blank spaces. 

SGN(X) — gives 1 if X is greater than 0, zero if X is zero, and —1 if X 
is less than zero. 

SIN(X) — gives sine of expression X if X is in radians. 

SQR(X) — gives square root of X. 

TAB(X) — spaces to the specified print column on terminal. 

ATN(X) — gives arctangent of X in radians. 

COS(X) — gives cosine of X in radians. 

LOG(X) — gives natural (base e) log of X. 

POS(X) — gives current position of terminal printhead or cursor. 

DEFFN 

Allows user to define functions. 

line no. DBF FN (variable name)(dummy variable) = function 

Some versions of BASIC have: 

FIX(X) — returns the truncated value of X. 

LOGIO(X) — gives common log of X. 

PI — constant value of pi, 3.141 5927 () 

RND — generates a random number between 0 and 1. Same sequence 
each RUN. Use RANDOMIZE statement (10 RANDOMIZE) or RANDOM 
(10 RANDOM) to change sequence. 

STRING FUNCTIONS 

INSTR(N1,A$,B$) searches string AS for substring B$ beginning at 
character N1 in string AS. Gives zero if substring not found. Gives 
character position if substring is found. 

SPACES(N) — inserts N spaces within a string. 

For Microsoft BASIC string functions, see pages 87-91. 








CHAPTER 10 PROBLEMS 


1. When do you use a DIM statement with two dimensional arrays?_ 

2. You work in the personnel department of a large recreational facility 
like Disneyland. Your boss is under a lot of pressure from all over 
to demonstrate that you are an equal opportunity employer so he 
asks you to program the computer to prepare a report showing the 
sex and age breakdown of all employees. He provides the data as 


follows (you should put it in 

DATA statements in 

pairs). 


Male = 1 Female 

Age: 

= 2 




Under 21 = 1 

21 - 29 = 2 

30 - 39 = 3 

RUN 

REPORT 



40 _ 49 = 4 

AGE 

MALE 

FEMALE 

TOTAL 

50 - 59 = 5 

UNDER 21 1 

21-29 2 

0 

1 

1 

3 

over 59 = 6 

30-39 

2 

0 

2 


40-49 

1 

1 

2 


50-59 

1 

1 

2 


OVER 59 

1 

1 

2 


TOTALS 

8 

A 



3. Sales Report 2: Remember the Sales Report By Territory program for Nation¬ 
wide Peddlers in Chapter 9? Review pages 151, 152, and 153. That program 
lacked one element to be more complete and informative. It turns out that 
each of the six territories had three salespersons, each of whom report their 
sales to company headquarters. Reports are sent via the company's computer 
links to the central office's computer. Data includes Territories coded by 
number (T = 1 to 6), and the corresponding territory's Salespersonnel (S = 1 
to 3) with the Dollar sales (D) for each salesperson. 


RUN 


TERRITORY 

SALNOl 

SALN02 

SALN03 

TOTAL 

1 

500 

0 

0 

500 

2 

1550 

0 

500 

2050 

3 

1200 

2000 

1500 

A700 

A 

1500 

1500 

2000 

5000 

5 

100 

100 

100 

300 

6 

650 

760 

800 

2210 


4. Consumer Analysis: Shopping Guide program. Pick 10 products by name and 
size. Pick four stores. Go shop each of'the four stores. Buy the same ten items 
in each store, and record the price you paid for each item. Then write a 
computer program to make a report that shows each store, the prices of the 
items (1 to 10) purchased, and the total cost for the ten items bought in 
each store. Place the information in DATA statements by store. 

Extra for Experts: Also have the program print * next to the cheapest price 
for the same item among the four stores. 

Our (very fake) sample data: 

lee DATA le 

110 DATA 10<9«8>7/6^5<4<4/2«1 
120 DATA 1., U2<2<3<3/4<4«5<S 
130 DATA4,4^S«S<646<7«7«8>8 
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Well, you have arrived at the end of this book, but you haven't arrived at the 
end of BASIC. Your computer system undoubtedly has a version of BASIC 
with more capabilities than we have covered here. However, if you under¬ 
stand and can use the BASIC instructions and functions we have presented, 
you are well on your way. If you have done the end of chapter problems 
(you didn't skip them, did you?), then you are really on your way to being 
able to write programs to meet your own needs. 

The author would appreciate your comments, suggestions, and criticisms. 

Did you find mistakes? What confused you? Are there better ways to explain 
things? Did your version of BASIC throw you any curves that we didn't 
forewarn you of? The author and publishers will continue to revise and 
improve this book, so your comments really will be read, and the author 
really does answer letters when they reach him in a timely fashion. When 
writing, please give a complete description of your computer system and 
the version of BASIC it uses. 

So where to from here? Start with a thorough review of all your computer 
system's reference materials. If you have a disk drive or cassette that can 
store data files, then your choice for an intermediate level self-instructional 
guide could be Data File Programming in BASIC (Microsoft BASIC-80, 
Models land III Radio Shack BASIC, and with North Star BASIC 
annotations), or Apple BASIC: Data File Programming, or TRS-80 Data File 
Programming, all by LeRoy Finkel and Jerald R. Brown. 

Thanks! Have fun and keep on hackin'. 

Jerald R. Brown 
dilithium Press 

11000 S.W. II th Street, Suite E 
Beaverton, Oregon 97005 
Toll free phone: 1-800-547-1842 


Rainbow's End Farm 
Sebastopol, California 
November, 1981 




The author holds a B.S. degree in psychology, and an 
M.Ed. in Research in Instruction from Harvard. He is 
a CO- founder of People's Computer Company. In addi¬ 
tion to being the co-author of a dozen instructional 
books in computer programming, he is also a film¬ 
maker, a gardener, and has done a variety of educa¬ 
tional television productions. 


(floob luck! 
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132 

Array 1, 133-171 

one dimensional 133-1 55 
two dimensional 1 56-1 71 
Art (see Graphics, TAB) 
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COBOL (computer language) 4 
Colon (;) 35, 40, 57, 58, 60 
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for INPUT entries 31, 33-35, 44 


Comma spacing 10, 11, 12, 25, 26, 44, 61,87 
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Command (see LIST, NEW, RUN) 
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Computer terminal 2 
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Cursor 4, 11, 15, 120 
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Debugging 22, 57, 61,62, 88 
DEC BASIC Plus iv, 1, 11, 1 5, 22, 57, 89 
Decimal point 35, 48, 85, 122, 127 (see also 
ASC, PRINT USING) 

DEF FN (define function) 127, 132, 173 
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DELETE key (Atari keyboard) 1 5 
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Delimiters (see Commas as separators. Quotation 
marks, FOR) 

Dice Simulation Program 1 44-1 46 (see also Craps) 
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for arrays 142, 143, 157, 165 
for strings (in some BASICs) 25, 27, 30, 50 
reference box 172 
Disk drive 2 

Direct mode 16, 22, 59, 138 

Direct statement 6 (see also Line number) 

Display 2, 13, 1 5, 61 
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Divisor 86 
Division 9, 1 7, 86 
Documentation 59 

Dollar sign ($) 25, 38, 39, 129 (see also String 
variables) 

Doubly subscripted variables (see Two 
dimensional arrays) 

Dummy variable (see DEF FN) 
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E + (see Floating point notation) 

Earned Run Averager Program 76 
Editor (see Program line editor) 

ELSE 74, 93 (see also IF. . .THEN) 

Empty string (see Null string) 

Empty PRINT statement (see Blank PRINT 
statement) 

END (statement) 56, 77 

End of Chapter Problems 18, 42, 52, 60, 78, 94, 
108, 132, 154, 174 
ENTER key 3 (see also RETURN key) 

Entry errors (see Error corrections) 

Entry tests (see Data entry tests) 

Equal Opportunity Program 174 
Entering statements 5, 7 
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Error corrections 13, 14, 1 5, 61, 62 
Error messages 13, 31, 32, 38, 61, 62, 67, 68, 
70, 81, 123, 141 

Error traps 31, 61, 62 (see also Data entry tests) 
Evaluating expressions 9, 21, 62, 68, 83 (see 
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Execute 5, 6, 21 (see also RUN) 
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Fahrenheit 50, 51 

False 69 (see also IF. . .THEN) 

Filter 70 (see also IF. . .THEN) 

FIX (function) 173 
Flag 77, 148, 149 

Floating point notation 47, 48, 52, 87 
FOR (statement) 96-108, 128 (see also Arrays) 
direct mode 103 
reference box 107 
Forever loop (see Loops, FOR) 

FRE (function) 173 
Frogs 102, 103, 107 
Functions 80-94, 110-132, 173 (see also 
Argument, Parameters) 

Function Reference List 173 

GO key 3 (see also RETURN key) 

GOTO (statement) 43-45, 50-52, 58, 64, 65, 77 
reference box 49 

GOSUB (statement) 166, 168, 170, 171 
reference box 172 
Grade Counting Program 155 
Graph 130,131 
Graphics 120, 121, 171 

Handy Reference Summaries (see Reference boxes) 
HTAB 120 

IF. . .GOTO (see IF. . .THEN) 

IF. . .THEN (statement) 64-79, 123, 169 
condition or comparison symbols 66 
logical AND, OR 75, 123, 128 
reference box 78 

Imbedded spaces in strings 37 (see also String 
constants) 


Immediate mode (see Direct mode) 

Indirect statement 6, 9 (see also Program, Line 
number) 

Infinite loops (see Loops) 

Initialize 

BASIC 2 
variables 59, 61 

subscripted variables or arrays (see DIM) 
INPUT (statement) 26-35, 61, 76, 99 
entry tests 35, 123, 128, 129 
multiple INPUT variables 31, 33, 34, 70 
reference box 22 
variables 26, 27, 32, 33 
Input/Output device 2, 18, 53 (see also Display, 
Keyboard, Printer) 

Inserting statements 7, 14, 15 
INSTR (function) 1 73 

Instruction 6 (see also Statement, Program, Direct 
mode) 

INT (function 83-86, 90-92, 94, 121, 124-126, 
129, 132, 144, 146, 173 
Integer BASIC 49 
Interest calculations 104, 108 
Invisible string (see Null string) 

I/O (see Input/Output device) 

Iteration 1 (see Loops, FOR) 

Keyboard diagrams 2, 3, 4, 9,15,1 7, 53 

Laurel & Hardy 36, 39 

Leading space (before PRINTed values) 29, 30, 
37, 118, 119, 122, 126 
in strings 40, 41 
Left arrow key 13 
LEFT$ (function) 111-117 
LEN (function) 110-1 1 2, 122, 1 28, 1 32, 1 73 
Length of a string (see LEN) 

LET (statement) 23, 25, 56 
reference box 22 

Line editor (see Program line editor) 

LINE INPUT (statement in some BASICs) 34, 35 
(see also INPUT) 

Line length 11, 44 (see also Character positions. 
Displays) 

Line number 6, 7, 14, 16, 65 (see also GOTO, 
GOSUB, ON. . .GOTO, IF. . .THEN) 

Lining up decimal points 122, 127 (see also 
PRINT USING) 

LINPUT (statement in some BASICs) (see LINE 
INPUT) 

Line feed 14 

(see also RETURN key, ASCII Code Chart) 
LIST (command) 8, 57 
List (see One dimensional array) 

Loading BASIC 2 
LOG, L0G10 (functions) 173 
Logged in 2 
Logic 66, 75 

Logical AND, OR (see AND, OR) 

Long division 86 

Loops 73, 77, 96 (see also Counting statements) 
infinite 43-46, 50-52 (see also GOTO) 
nested 105-108 (see also FOR, Two 
dimensional arrays) 
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Mailing List Program 116, 117 

Mantissa 47 (see also Floating point notation) 

Matrix (see Arrays) 

Membrane keyboards 3 

Memory 2, 4, 8, 22, 53, 56-58 (see also ROM, 
RAM) 

MID$ (function) 112-119, 126, 1 28, 132 
Minus sign 9, 20 (see also Arithmetic, Leading 
space) 

Mistakes 13, 14, 15 (see also Errors) 

Multiple INPUT variables 31, 33, 34, 70 
Multiple READ variables 31,38 
Multiple statement program lines 57-60, 62, 69, 
137 

reference box 60 
Multiplication 9,17 

Negative numbers 20 (see also Minus sign) 

Nested loops 105-108, 159, 160 (see also FOR, 
Two dimensional arrays) 

NEW (command) 4, 12 
NEXT (statement) 96-108 (see also FOR) 
reference box 107 
Non-entries (see Null string) 

North Star BASIC iv, 1, 11, 12, 15, 28, 34, 37, 
58, 60, 67, 113, 175 
Null string 31, 32, 51, 110, 123 
Number sign (#) 35 

Number, A Guessing Game (program) 92, 93, 94, 
108, 123 

Numeric value (see Value, Leading space) 

Numeric variable (see Variable) 

OD error (see Out of data error) 

ON . . . GOSUB (statement) (see GOSUB, ON . . . 
GOTO) 

ON. . .GOTO (statement) 168-171 
reference box 172 
One dimensional arrays 133-155 
Opinion Poll Program 147, 148 
OR (logical) 75, 128 
Order of evaluation in arithmetic 17 
Out of data error message 67, 68, 71 
Output device (see Input/Output, Display, Printer) 
Output format techniques (see PRINT, Commas, 
Semicolons, Blanks, PRINT statements. 
Leading spaces, TAB, SPC, SPACE$, PRINT 
USING) 

Overflow error 46 

Parameters 104 (see also FOR, Argument) 

Parentheses 17, 62, 83 

Payroll Program 108 

Period 35 (see also Decimal point) 

Peripherals 2 
PET 1, 34 
PI (function) 173 

Plotting mathematical functions 130, 131 
Poker Dealer Program 166-171 
Polka dots (see Reference boxes) 

POS (function) 1 73 

Positive value output format 29 (see also Leading 
space) 

Power (see Exponentiation) 
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Precedence, Rules of 17 (see also Parentheses) 
Press RETURN To Continue 50, 51, 87, 90 
Prettyprinting (see TAB, Output format techniques) 
PRINT (statement) 4-6, 61, 66, 67, 71 (see also 
Output format techniques) 

? (shorthand for PRINT) 11, 57, 61, 69 
reference box 11 

Print positions and zones 11, 120 (see also TAB, 
SPC, Comma, Semicolon, Output format 
techniques) 

Printer 2, 1 3, 15, 61, 120 (see also Input/Output, 
Display) 

PRINT USING 1 53 

Problems, End of Chapter 18, 42, 52, 60, 78, 

94, 108, 132, 154, 174 
Program 5 (see also Line numbers. Trace) 

Program line editor 21, 32, 61 
Prompt character or message 4, 62 
Prompt string or message 22, 27-32, 51, 123 
(see also INPUT) 

Question mark 11, 26, 30, 33, 34, 57, 61, 69 
(see also PRINT, INPUT) 

Quotation marks 4, 6, 16, 35, 115 

(see also DATA statement, INPUT 

statement. Strings, String constants) 

Quotient 86 

Radio Shack (Microsoft)BASlG iv, 1,15, 34, 90, 
121, 175 

RAM (Random Access Memory) 2 (see also 

Memory) \ 

RANDOM (statement) 89, 173 
Random Access Memory (RAM) 2 (see also 
Memory) 

RANDOMIZE (statement) 89,173 
READ (statement) 36-42, 61 (see also DATA, 
RESTORE) 

reference box 40 

Read Only Memory (ROM) 2 (see also Memory) 
Reference Summary Boxes 11, 22, 40, 49, 60, 
78, 107, 172 
REM (statement) 59, 61 
reference box 60 
Remainder 86 
REPEAT or REPT key 1 5 
Replacing program lines 14, 15, 25 
Replacing variable values 21, 22, 53 
RESTORE (statement) 71 (see also READ, DATA) 
RETURN (statement) (see GOSUB) 

RETURN key 3, 26 

RIGHT$ (function) 111-113,123,129 
RND (function) (Pseudo-random number generator) 
87-94, 124-126, 144, 146, 167, 168 
ROM (Read Only Memory) 2 (see also Memory) 
Rounding off numbers or values 84, 104 (see also 
INT) 

RUN (command) 5 

Sales and Salary Report Program 151-154 
Sales Report by Territory Program 149-1 50 
Sales Report 2 Program 174 
Scratch (see NEW) 

Screen (see Display) 



Semicolon 10-12, 16, 61 (see also North Star 
BASIC) 

spacing in PRINT statements 10-12, 25, 
26, 87, 110, 136 
in INPUT statements 27, 35 
SGN (function) 132,173 
Sherlock Holmes 88 

SHIFT key 4, 61,62 (see also Keyboards) 
Shopping Guide Program 174 
Simulation 144-146, 155, 166-171 
SIN (function) 131-132,173 
Singly subscripted variables (see One dimensional 
arrays) 

Sins of Omission, and other errors in my ways 
61-62 

Slash (/) character 9, 35 (see also Division, 
Backslash) 

Slot Machine Programs 139, 155 
SN Error (see Syntax error) 

Snakes 105 (see also Loops) 

SPACE$ (function) 1 73 
Spaces in strings 25, 26, 28, 29 
SPC (function) 120, 173 (see also TAB, Output 
format techniques) 

SQR (function) (Square root) 80-83, 173 
Stars, A Number Guessing Game Program 94 
Statement (see also Direct mode. Line numbers) 
defined 6 

direct or immediate mode 16, 22, 59, 
138 

STEP (optional part of FOR statement) 100, 101, 
132 

parameters 100, 101 
reference box 107 
STOP (statement) 172 

Strings 6, 14, 16, 25, 110 (see also Substrings) 
constants 136 
in arrays 134,139-142 
variables 25, 110 

STR$ (function) 118, 119, 122, 126 
Subscripted variables 1,133-171 
Substrings 128-129 (see also LEFT$, RIGHT$, 
MID$) 

Subtraction 9, 17 (see also Arithmetic) 
Suppertally Program 161, 162, 165 
Suppressed question marks 30 (see also INPUT) 
Syntax 3, 4 

Syntax error message 3, 4, 13, 28 
System prompt (see Prompt character) 

TAB (function) 120-122, 126, 127, 150, 153, 

1 54, 163 (see also Output format 
techniques) 

Table (see two dimensional Array, Output format 
techniques) 

Talking Frog Programs 102, 103, 107 
Tallying statements (see Counting statements) 
TAN (function) 130,173 
Terminal 2 (see also Display, Keyboard, Printer) 
Time delay using FOR-NEXT 107 
Touch-sensitive membrane keyboards 3 
Trace 21, 23, 24, 29, 45, 72 


Trailing space (after PRINTed values) 29, 30, 37 
in strings 40, 41 (see also INPUT, DATA) 
Trap (see Data entry tests) 

Trigonometry functions 130, 131, 173 
TRS-80 (see Radio Shack) 

True 65, 69 (see also IF. . .THEN) 

Truncation 25, 49 (see also INT) 

TV (see Display) 

Two dimensional arrays 1 56-1 71 
Typing erros 10 (see also Error corrections) 

Up and running 2, 3 

Up arrow 17 (see also Exponentiation) 

Upper case letters 6 (see also SHIFT) 

User friendly 30,51 
User's groups 1 
USR (function) 173 

Utility program (see Trace, Program line editor) 

VAL (function) 118, 119, 129, 173 
Values 20, 21,23, 25, 53 (see also Variables, 
Leading spaces. Strings, STR$, VAL, 
Assignment statements. Floating point 
notation. Argument) 

Variable (see also Values, INPUT, READ, LET, 

IF. . .THEN, Argument) 
defined 20 
names 54, 55 

numeric 20, 25, 28, 32, 36, 54, 55 
string 32, 36, 54, 55 
subscripts 135 (see also Subscripted 
varaibles) 

Vector (see One dimensional arrays) 

VIC (see PET) - 

Video display (see Display) 

Vote Counting Program 1 54 
Vote Counting with Two dimensional Array 
Program 161-165 
VTAB 120 

Water Usage Programs 78 
Yes or No Tester 68, 123 
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CHAPTER 1 SOLUTIONS 


1. 10 PRINT "LISA STEWART" 

20 PRINT"1826 GOLDEN AVE" 

30 PRINT"REDW00D CITY^ CA 94063" 

RUN 

LISA STEWART 
1826 GOLDEN AVE 
REDWOOD CITY* CA 94063 


2. 10 PRINT"LISA STEWART"*"1826 GOLDEN AVE"*"REDWOOD CITY*CA 94063" 

RUN 

LISA STEWART 1826 GOLDEN AVE REDWOOD CITY*CA 94063 


3. Type NEW then press RETURN (or the equivalent on your keyboard; see 
page 3). 

4. Type LIST then press RETURN. 

5. See pages 14 and 15. 


6. PRINT 172.16-13.50-19.00-3.25-10.00-114.14+87.51 
99.78 


7. lO PRINT “AVERAGE HEIGHT IS ”, (40+50+46+48+49+45+52+41+44+46)/10 
RUN 

AVERAGE HEIGHT IS 46.1 


CHAPTER 2 SOLUTIONS 


1. LET 
INPUT 
READ 


2. Quotation marks 


3. Use direct mode 


A 

B 

C 

D 

12 

0 

0 

0 

12 

14 

0 

0 

12 

14 

16 

0 

12 

14 

16 

0 

12 

14 

16 

5 

12 

14 

16 

5 
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Princess Hair Reslorer Grows Hair Like This. 







5 10 READ AS^BS^A 

20 PRINT A$^B$>A 

30 DATA "SHERRY DELIGHT",”800-555-1212">23 
RUN 

SHERRY DELIGHT 800-555-1212 23 



CHAPTER 3 SOLUTIONS 


1. 896700 

1 , 000 , 000 , 000 , 000,000 

.001 

61,576,200,000 

.00000387124 


10 INPUT"ENTER YOUR NAME”;A$ 

20 INPUT "ENTER YOUR ASTROLOGICAL SIGN";S$ 
30 INPUT "ENTER YOUR BIRTHDATE";D$ 

40 PRINT A$,”Y0U ARE UNDER THE SIGN OF ”;S$ 
50 PRINT”SINCE YOUR BIRTHDAY IS "JDS 


(b) No 


(a) 10 LET X»<<<4.80/.48>*100)*7.5)/150 
20 PRINT X,"MONTHS" 

RUN 

50 MONTHS 


2 1.78643235E+09 

3.13457532 E+09 
1.2479E-04 
7.77777778E-03 

3. Hold the CONTROL (or CTRL) key down and type C, then release both 
keys and hit RETURN (or its equivalent on your keyboard). 

4. CONTROL/C 


5. 10 PRINT "NUMBER","SQUARED” 

20 LET T»1 
30 PRINT T,Tt2 
40 LET T*T+1 
50 GOTO 30 


NUMBER 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


SQUARED 

1 

4 

9 

16 

25 

36 

49 

64 

81 

100 


6. lO PRINT "PRESS RETURN TO CONTINUE" 
20 PRINT "NUMBER","SQUARED" 

30 LET T = T + 1 
40 PRINT T, TA2 
50 INPUT "“5 R* 

60 GOTO 30 
RUN 
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CHAPTER 4 SOLUTIONS 


1. Check the reserved word list for your version of BASIC in your reference 
manual. 

2. Alone. DATA statements always stand alone. 


3. As the last statement in the line. 


10 T=T+1 

m 

? T; SQUARED 

RUN 

1 SQUARED 

= 

1 

2 SQUARED 

= 

4 

3 SQUARED 

= 

9 

4 SQUARED 

= 

16 

5 SQUARED 

= 

25 

6 SQUARED 


36 

7 SQUARED 

= 

49.OOOOOOl 

8 SQUARED 

r= 

64 

9 SQUARED 

= 

81.OOOOOOl 

BREAK IN 10 



5. No solutions provided; do your own. 

CHAPTER 5 SOLUTIONS 

1. Continues to the next statement in the program. 

2. Not equal 

3. Less than or equal to 

4. (a) No PRINT statement, and 

(b) the program branches to the same place (line 30 
no matter whether 
the condition is true or false. 


T'^2 ! INPUT ''"sR* s GOTO lO 
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5. 


20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

300 


OF MINS. PER SH0WER**;M 


TUB BATHS PER DAV’IB 


INPUT’*ENTER NO. 

INPUT "ENTER NO 
INPUT"ENTER NO. 

INPUT"ENTER NO. 

INPUT"ENTER NO. 

INPUT"NO. OF TOILET FLUSHES/DAY";F 
INPUT"NO. OF WASHER LOADS/WEEK";W 
INPUT"NO. OF OUTDOOR HOSE MINUTES/DAY";H 
INPUT"ENTER NO. OF VARIOUS GALLONS USED/DAY";V 


OF 

OF 

OF 


HAND 

AUTO. 


DISHWASHING JOBS/DAY"ID 
DISHWASHING JOBS/DAY"IA 


LET T»0 
READ X 

LET T=T+<S*<M*X)>*30 
READ X 

LET T*T+(B*X)+30 
READ X 

LET T=T+CD*X)*30 
READ X 

LET T»T+(A*X)*30 
READ X 

LET T*T+<F*X)*30 
READ X 

LET T=T+<W>tcX>*4.2 
READ X 

LET T=T+<H*X)*30 
LET T=T+<V*30) 

PRINT"YOU USE APPROX. "I TI"GALLONS / MONTH 
PRINT"THAT IS AN AVERAGE OF "IT/30;"GALLONS 
DATA 6^20*15/16^6^35*10 



This 
Great 
I*ife 
Invigo- 
rator 
Can Be 
Attached 
To Any 
Fanoet* 


Cline’S Portable 
Shower Bath. 


OR ";T/7.5; "CUBIC 
PER DAY" 


FEET 


RUN 

ENTER NO. OF SHOWERS PER DAY? 1 

ENTER NO. OF MINS. PER SHOWER? 5 

ENTER NO. OF TUB BATHS PER DAY? 1 

ENTER NO. OF HAND DISHWASHING JOBS/DAY? 1 

ENTER NO. OF AUTO. DISHWASHING JOBS/DAY? 1 

NO. OF TOILET FLUSHES/DAY? 5 

NO. OF WASHER LOADS/WEEK? 3 

NO. OF OUTDOOR HOSE MINUTES/DAY? 0 

ENTER NO. OF VARIOUS GALLONS USED/DAY? 50 

YOU USE APPROX. 5271 GALLONS / MONTH OR 702.8 CUBIC FEET 
THAT IS AN AVERAGE OF 175.7 GALLONS PER DAY 


10 INPUT "ENTER WATER USED IN GALLONS"!G 

20 LET T=<G/7.5)/100:LET T»(T*.50)+2.85:PRINT"BILL IS "T:GOTO 10 


RUN 

ENTER WATER USED IN GALLONS? 6000 
BILL IS 6.85 

ENTER WATER USED IN GALLONS? 10000 
BILL IS 9.51667 

ENTER WATER USED IN GALLONS? 20000 

BILL IS 16.1833 

ENTER WATER USED IN GALLONS? 
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7. 10 INPUT "ENTER WATER USED IN GALLONS";(j 

20 IF G<=8000 THEN PRINT "BILL IS "((6/7.5>/100)♦.50+2.85:GOTO 10 
30 LET Ta<<<G-8000)/7.5)/100>*1.00 

40 LET T=T+<<8000/7.5)/100>*.50+2.85:PRINT"BILL IS"T:GOTO 10 
RUN 

ENTER WATER USED IN GALLONS? 6000 
BILL IS 6*85 

ENTER WATER USED IN GALLONS? 10000 
BILL IS 10.85 

ENTER WATER USED IN GALLONS? 20000 
BILL IS 24.1833 
ENTER WATER USED 


8. 10 INPUT "HOW MANY MINUTES";M 

20 LET C»2.00:IF M<=45 THEN LET C=C+<M*.05):GOTO 40 
30 LET C=C+<45*.05)+<M-45)*.03 
40 PRINT"BILL IS "C: GOTO 10 

RUN 

HOW MANY MINUTES? 40 
BILL IS 4 
HOW MANY MINUTES? 45 
BILL IS 4.25 
HOW MANY MINUTES? 60 
BILL IS 4.7 
HOW MANY MINUTES? *00 
BILL IS 5.9 

HOW MANY MINUTES? _ 

10 READ NS/ZS 

20 IF ZS="94061"THEN PRINTN$:GOTO 10 
30 GOTO 10 

40 DATA MARCUS/94025^LINDA^ 94061/ JERRY/ 94061/LARRY/06542 

RUN 

LINDA 

JERRY 



CHAPTER 6 SOLUTIONS 


' ■ Negative value for X 

2 . 3 ^ _ 4 ^ 4 ^ _ 5 ^ 0 , -1 

IF K <= 30 THEN PRINT INT <6*RND (1 >+-1) j LET K = K + 1 s GOTO 10 

415 T = T + 1 

420 IF G = X THEN PRINT "YOU GOT IT IN ‘■;T; 

” GUESSES. LET'S PLAY AGAIN.“:T = O: GOTO 410 
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10 REM CRAPS 

20 LET A»INT(6*RNDC 1 > + l) :LET B= INK6»RNDC 1) + 1) 
25 PRINT’*POINT IS "A+B 

30 IF A+B=7 THEN PRINT"WINNER":GOTO 20 
40 IF A+Ball THEN PRINT"WINNER":GOTO 20 
50 LET C=INT<6^RND<l)+l):LET D=INT<6»RND(I)+I> 
55 PRINT C+D, 

60 IF A+B=C+DTHEN PRINT"WINNER”:GOTO 20 

70 IF C+D*7 THEN PRINT”Y0U CRAPPED OUT”:GOTO 20 

80 GOTO 50 


RUN 

POINT IS 
4 
8 

POINT IS 
WINNER 
POINT IS 
7 

POINT IS 


1 1 
6 
5 


5 10 

9 9 


YOU CRAPPED OUT 


4 

6 


8 

WINNER 


Use the Press RETURN To Continue 
technique for video displays to slow 
down the dice-shooting. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 


REM STARS 

LET N=INT(100*RND(1)+1> 
INPUT"ENTER YOUR GUESS";G:IF 
LET D*ABS(G-N) 

IF D>=64 THEN 170 
IF D>»32 THEN 160 
IF D>»16 THEN 150 
IF D>«8 THEN 140 
IF D>»4 THEN 130 
IF D>=2 THEN 120 


G=N THEN PRINT"WINNER":G0T0 20 


PRINT"*"; 
PRINT”*”; 
PRINT”*"; 
PRINT”*”; 
PRINT"*”; 
PRINT”*”; 
PRINT”*”:GOTO 


RUN 

ENTER YOUR 
** 

ENTER YOUR 
**** 

ENTER YOUR 
***** 

ENTER YOUR 
ENTER YOUR 
ENTER YOUR 

)|t4E***** 

ENTER YOUR 

]tc4c«4c)(c4i 

ENTER YOUR 
WINNER 
ENTER YOUR 


30 


GUESS? 

50 

GUESS? 

25 

GUESS? 

15 

GUESS? 

10 

GUESS? 

8 

GUESS? 

12 

GUESS? 

13 

GUESS? 

1 1 

GUESS 
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CHAPTER 7 SOLUTIONS 


1. It prints 17 and stops 

2. A heading will be PRINTed each time through the loop. RND(O) gives the 
same value each time through the loop in Microsoft-style BASICS. 

3. 10 REM - NUMBER, A GUESS I NS GAME 

200 REM - PRINT THE INSTRUCTIONS FOR THE GAME 

210 PRINT "I WILL THINK OF A WHOLE NUMBER FROM 1 TO lOO.“ 

220 PRINT "TRY TO GUESS MY NUMBER. AFTER EACH GUESS, I WILL" 

230 PRINT "TELL YOU IF YOU HAVE GUESSED MY NUMBER, OR IF YOUR" 
240 PRINT "GUESS IS TOO SMALL OR TOO BIG." 

—250 PRINT "I WILL GIVE YOU 8 GUESSES." 

300 REM - COMPUTER THINKS UP A NUMBER - CALL IT X 
310 X = INT <100 * RND <!)) + 1 

320 PRINT ; PRINT "OK, I HAVE A NUMBER. START GUESSING." 

400 REM - PLAYER GUESSES, COMPUTER COMPARES AND DECIDES 
—405 FOR T = 1 TO 8 

410 PRINT ; INPUT "WHAT IS YOUR GUESS?";G 
—420 IF G = X THEN PRINT "YOU GOT IT IN ";T;" GUESSES!!!“: 

PRINT "LET'S PLAY AGAIN, "s GOTO 310 
—430 IF G < X THEN PRINT "TOO SMALL. GOTO 450 

—440 PRINT "TOO BIG. 

—450 IF T < 8 THEN PRINT "GUESS AGAIN." 

—460 NEXT T 

—470 PRINT "SORRY, THAT'S 8 GUESSES. LET'S PLAY AGAIN.": GOTO 310 
RUN 

I WILL THINK OF A WHOLE NUMBER FROM 1 TO 100. 

TRY TO GUESS MY NUMBER. AFTER EACH GUESS, I WILL 
TELL YOU IF YOU HAVE GUESSED MY NUMBER, OR IF YOUR 
GUESS IS TOO SMALL OR TOO BIG. 

I WILL GIVE YOU 8 GUESSES. 

OK, I HAVE A NUMBER. START GUESSING. 

WHAT IS YOUR GUESS? 50 
TOO SMALL. GUESS AGAIN. 


WHAT IS YOUR GUESS? 75 
TOO BIG. GUESS AGAIN. 


WHAT IS YOUR GUESS? 66 
TOO BIG. GUESS AGAIN. 

WHAT IS YOUR GUESS? 60 
TOO BIG. GUESS AGAIN. 

WHAT IS YOUR GUESS? 55 
TOO BIG. GUESS AGAIN. 

WHAT IS YOUR GUESS? 53 
TOO SMALL. GUESS AGAIN. 

WHAT IS YOUR GUESS? 54 
YOU GOT IT IN 7 GUESSES!!! 

LET'S PLAY AGAIN. (This RUN continues on the next page.) 
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OK, I HAVE A NUMBER. START GUESSING. 

WHAT IS YOUR GUESS750 
TOO BIG. GUESS AGAIN. 

WHAT IS YOUR GUESS725 
TOO BIG. GUESS AGAIN. 

WHAT IS YOUR GUESS720 
TOO BIG. GUESS AGAIN. 

WHAT IS YOUR GUESS75 
TOO SMALL. GUESS AGAIN. 

WHAT IS YOUR GUESS717 
TOO BIG. GUESS AGAIN. 

WHAT IS YOUR GUESS712 
TOO BIG. GUESS AGAIN. 

WHAT IS YOUR GUESS71 1 
TOO BIG. GUESS AGAIN. 

WHAT IS YOUR GUESS710 

TOO BIG. SORRY, THAT'S 8 GUESSES. LET'S PLAY AGAIN. 
OK, I HAVE A NUMBER. START GUESSING. 

WHAT IS YOUR GUESS7 


4. 10 FOR X = 1 TO 72 : PRINT ; NEXT 


Note this: The second FOR variable parameter (upper limit) should be 
exactly equal to the number of characters for a print or display line. See 
your page 11 test, and substitute this value in the program. 


5. 


80 column printer or display version. 

5 REM INTEREST TABLE 
8 PRINT”YEARS’S "5f / ”5. SX’S "6. 

10 FOR y»5 TO 25 STEP 5 
15 PRINT Y> 

20 FOR I»5 TO 6.5 STEP .5 

30 PRINT 10000*<l+<I/l00))tY/:NEXT ItPRINT 
40 NEXT Y 



YEARS 

5X 

5.5X 

6Z 

6.5X 

5 

12762.8 

13069.6 

13382.3 

13700.9 

10 

16289 

17081.4 

17908.5 

18771.4 

15 

20789.3 

22324.7 

23965.6 

25718.4 

20 

26533 

29177.5 

32071.3 

35236.5 

25 

33863.6 

38133.7 

42918.7 

48277.1 
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40 column display version. 


lO REM ♦**INTEREST CALCULATOR 
20 FOR Y = 5 TO 25 STEP 5 
30 PRINT Y;’* YEARS ATs ** 

40 FOR I = 5 TO 6.5 STEP .5s PRINT s PRINT I;"'/. YIELDS *”5 

50 PRINT 10000 ♦ (1 + (I / 100)) Ys NEXT Is PRINT 

60 INPUT "PRESS 'RETURN' TO CONTINUE";R* 

70 PRINT s NEXT Y 


6 . 


Alternate version; 

10 REM ♦»*INTEREST CALCULATOR 
20 FOR Y = 5 TO 25 STEP 5 
30 PRINT Y;" YEARS ATs" 

40 FOR I = 5 TO 6.5 STEP .5s PRINT s PRINT l5"7. YIELDS 

50 X = 10000 * (1 + (I / 100)) ^ Ys PRINT INT (X ♦ 100 + .5) / 100s NEXT 
Is PRINT 

60 INPUT "PRESS 'RETURN' TO CONTINUE";R* 

70 PRINT s NEXT Y 


10 REM PAYROLL 
15 PRINf’NAME'S’’GROSS PAY” 

20 READ NS/H^R 

30 IF H<=40 THEN PRINTN$>H*RsGOTO 20 

40 LET G=<40*R)+(H-40)*<R*1.5)sPRINTNS/Gs GOTO 

900 DATA T. BOD# 40#4.00# T. RAY# 50# 4.00 

RUN 

NAME GROSS PAY 

T. BOD 160 

T. RAY 220 



?0D ERROR IN 20 


CHAPTER 8 SOLUTIONS 


1. 10 DEF FNR<X) = INT<X*100 + . 5)/100 

2 . BASIC IS BEST 

3 20 A$ = "INSTANT BASIC" 

30 FOR X = LEN(A$) TO 1 STEP -1 
40 PRINT MID(A$,X,X), 

50 NEXTX 

4 . Note: You could use the ASCI I code for a comma in the line 30 comparison. 


10 READ NS 

20 FOR X=1 TO LEN<N$) 

30 IF MIDS(N$#X# 1><>’’#”THEN 60 
40 PRINT MID$(MS#X+1)#LEFT$(N$#X-1) 
60 NEXT X 

80 DATA "ZENITH#HAROLD” 


5 . No solution provided; do your own. 
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6. C = consonant, V = vowel. 


5 REM RANDOM NAME GENERATORCCVCCVC) 

10 V$="AEI0U":N$*"BCDFQHJKLMNPQRSTVWXY2" 

15 FOR N=1 TO 20 

20 V1»INT(5*RND<I)>♦I*V2»INT<5*RND(1))+1 

30 C2>INT(21«RNDC 1 > >■*-11 C3>INTC21*P1ND( 1) > + l:C4«INT( 2URNDC 1) }■«■ 1 

40 print"j*';mids(Vs«vu i>;mids(ns>C2» u;mids(ns^C3/ i>; 

45 PRINT MID$<V$^V2*1>;M1DS(N$>C4*1)> 

50 NEXT N 


RUN 


JIPFID 

JUDBUV 

JIDRID 

JUHWEK 

JEPTIZ 

JOUUEB 

JAXJOK 

JEPSIG 

JE2SUK 

JIGNAV 

JUSPOH 

JEPXAT 

JIYBOT 

JUHLIF 

JEMJEK 


Wine of Life ] VIN VITAE [ Wine of Life 


Retail Price, per bottle, $1.25 Our Price, 69 Cents. 




CHAPTER 9 SOLUTIONS 


1. (a) Line 70 

(b) Print salesman name and total 

(c) Tallies up grand total sales 

(d) Line 100 or 110 

2. L. FRENCH 
B. MIDLER 
14 00 

500 

3. 16 
9 
9 
5 


TilfF VIH VITAF and the I^ood ecrecto wiu b«tmmedUte. You 
iwitfc liw wiiwfc ggt strong, you will feel bright, fresh and 
active; you will feel new, rich blocxi coursing through your veln^ 
your nerves will act steadily, you will feel health and strength and 


your nerves will act steadily, you will feel health and strength- 

energy at once coming back to you. If you are easily tuckered out. 
If some especially hard task has exhausted your vitality, or If you 
have undergone any kind of a strain, mental or bodily, Vln Vlt« 
will act Uhe magic, puts new Ufe Into yon, brings yon right up 


will act Uhe magic, puts new Ufe Into yon, brings yon right up 

Vin Vitae gives health and strength. 


A NEW AND PERFECT TONIC STIMULANT FOR THE TIRED, WEAK AND SICK OF ALL CLASSES. A RENEWER OF ENERGV, 
A STIMULANT FOR THE FATIGUED, A STRENGTHENER FOR THE WEAK, AN EFFECTIVE AND 
AGREEABLE FOOD FOR THE BLOOD, BRAIN AND NERVES. 


NOT A MEDiCINE, 


NOT MERELY A STIIIULANT, 


A Tonic which we find is as yet Unequaled. 

lafiJ.v |M Iflll IfiTAC 4 VIN VITAE (WINE OF LIFE) Is a preparation combining tnrongh 
1^ win YI I AC i highest medical skill the curative, heaUng and strengthening 
— — powers of celebrated vegetable elements, procured from medicinal 

South American herbs, with the invigorating tonic effects of the purest and ffnest wines of sunny 


California. The herbs supply the newied food strength for the blood and nerves, the wine element 
counteracts the disagreeable, nauseous properties of the herbs and gives jnst the right lire and 
life to the preparation. It Is a combination producing a wonderful medical tonic. 

VIV WITAF contains all the good properties of all the well known sarsaparlllas, blond purl- 

W IH wl I WE liers, regulators for men and w - - . —...-. j.-- 

and di.st:i.steful ingredients. It lean ideal tonic anu 
strengthener for all, combining all the best elements of 
sin.ilai medicines, with distinctive and peculiar advan¬ 
tage.s of its own that make It enjoyed and appreciated 
by all who try it. It produces a wonderful exhilara¬ 
ting result, and leaves np ill effects. As a pleasant 

-’■ -- ■--,1,1c to strengthen and tone up the nerves. 

■ enrich the bUxxl. invigorate brain, body and 
rgulate the system, 

VIN VITAE 

inrpasses any preparation on the market. IT IS IN 
t CLASS BY ITSELF. 


Are you Easily Tired? 

Do you Sleep Badly? 

Are you Nervous? 

Do you Feel Exhausted? 

Have you Lost your Ap¬ 
petite? 

Is your Stomach Weak? 

Are you Thin? 

Is your Circulation Poor? 

Are you Weak, either con¬ 
stitutionally or from re¬ 
cent sickness? 


YOU SHOULD TAKE 

VIN 

VITAE 

REGULARLY IF YOU 
MUST ANSWER 

YES 

TO ANY ONE OF 
THESE QUESTIONS. 


GTS. 


4. Only when your array exceeds 11 variables or elements, in Microsoft-style 
basics; fora// arrays in some other BASICS. 


5. If your BASIC doesn't include leading and trailing spaces for PRINTed values, 
include spaces inside quotation marks (" ") in line 70, to separate the 
candidate's "code" numbers from the candidate vote count under the heading 
for each office. 


20 READ PI^VUTltlF PI»-1 THEN 50 

30 P<PI)=P<P1> + 1JV(VI)»V<VI) + 1:T<T1)=T<TI) + 1:G0T0 20 
50 PRINr*PRESIDENT”#"VEEP”#"TREASURER" 

60 FOR X*l TO 3 
70 printx;p(X)^x;vcx>^x;t<x) 

80 NEXT X 

90 DATA 1# 1/ \ l*2*3*3*2* 1*2* I * 3* 2* 2* 3* 1*2* 1 

RUN 


PRESIDENT 

VEEP 

TREASURER 

1 3 

1 2 

1 3 

2 3 

2 5 

2 1 

3 2 

3 1 

3 4 


189 

































6. 10 REM GRADE COUNTER 

15 PRINT"GRADE"^"NUMBER" 

20 READ G;IF G=-l THEN 30 
25 C<G)=C(G)+1:GOTO 20 
30 FOR X»1 TO 5:PRINTX>CCX):NEXT X 
40 PRINT "A’S AND B»S TOTAL">CC4)+C<3) 

5 0 DAT A 4^4^3>3#2#2^ 1/ 1^3#3^4^4>4>3>2#3>4^^ 1 

RUN 

GRADE NUMBER 

1 2 

2 3 

3 6 

4 6 

5 0 

A’S AND B’S TOTAL 12 


7. 5 REM SLOT MACHINE 

10 FOR X=1 TO 5:READ N$<X):NEXT X 

20 FOR X=1 TO 3:A(X>=INTC5*RND(1)>+1:NEXT X 

30 FOR Xal TO 3:PRINT N$<A<X):NEXT X 

55 REM DOUBLE /TRIPLE TEST 

60 IF A<1><>A<2> THEN 80 

65 IF A<2><>A<3)THEN 70 

66 IF A<1)*5 THEN PRINT"BIG WINNER. TAKE $1.00":GOTO 20 

67 PRINT"3 IN A ROW. $.25"lG0T0 20 
70 PRINT"YOU WIN $.10":GOTO 20 

75 REM CHERRY TEST 

80 IF A<1>»1 THEN PRINT"YOU WIN $.05":GOTO 20 
90 PRINT"NOTHING WON. NEXT NICKEL":GOTO 20 
100 DATA CHERRY/PEACH>PLUM>APPLET BAR 

RUN 


PLUM 

PEACH 

APPLE 

NOTHING 

WON. 

NEXT 

NICKEL 

CHERRY 

BAR 

APPLE 

YOU WIN 

$.05 



APPLE 

PLUM 

PEACH 

NOTHING 

WON. 

NEXT 

NICKEL 

BAR 

PLUM 

PLUM 

NOTHING 

WON. 

NEXT 

NICKEL 

CHERRY 

BAR 

PLUM 

YOU WIN 

$.05 



PEACH 

BAR 

APPLE 

NOTHING 

WON. 

NEXT 

NICKEL 

APPLE 

APPLE 

BAR 

YOU WIN 

$. 10 



BAR 

APPLE 

BAR 
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CHAPTER 10 SOLUTIONS 


1. Always 

2. S stands for Sex (1 for male, 2 for female) 

A stands for Age group (1 to 6) 

80 column printer or display version. 


10 REM EQUAL OPPORTUNITY 
15 DIM 0(6/2) 

20 READ S/AjIF S=-1 THEN 40 

30 C(A/S)=C<A/S)+l:C<0/S)=C<0/S)+l:C(A/0)=C<A/0)+I:GOTO 20 
40 PRINT”AGE*'/ "MALE"/ "FEMALE”/ "TOTAL” 

50 FOR A»1 TO 6*READ D$:PRINTD$/ 

60 FOR S*1 TO 2IPRINT C(A/S)/:NEXT S 
70 PRINTC(A/0>;NEXT A 
80 PRINT"TOTALS”/C<0/l)/C(0/2) 

90 DATA 1/3/2/2/ 1/ 1/2/4/2/5/2/6/ 1/6/ 1/5/ 1/4/ 1/3/ 1/2/ l/2/~l/*’l 
100 DATA UNDER 21/21-29/30-39/40-49/50-59/OVER 59 


RUN 

AGE 

MALE 

FEMALE 

TOTAL 

UNDER 21 

1 

0 

1 

21-29 

2 

1 

3 

30-39 

2 

0 

2 

40-49 

1 

1 

2 

50-59 

1 

1 

2 

OVER 59 

1 

1 

2 

TOTALS 

8 

4 



40 column display version. 


+ iiC(A,0) = C(A,0) + l! 
18);"FEMALE"; TAB( 26); 


lO REM EQUAL OPPORTUNITY 
20 DIM C(6,2) 

30 READ S,As IF S = - 1 THEN 50 

40 C(A,S) = C(A,S) + l!C<0,S) = C(0,S> 

50 PRINT "ASE"; TAB( 10);"MALE"; TAB( 

"TOTAL"! PRINT 

60 FOR A = 1 TO 6: READ D*: PRINT D*;!T = 12 

70 FOR S = 1 TO 2i PRINT TAB< T);C(A,S);! LET T = T + 8i NEXT S 

80 PRINT TAB( T);C<A,0)i PRINT : NEXT A 

90 PRINT "TOTALS"; TAB( 12);C(0,1); TAB< 20);C<0,2> 

lOO DATA 1,3,2,2,i,1,2,4,2,5,2,6,1,6,1,5,1,4,1,3,1,2,1,2,-1,-1 

110 DATA UNDER 21,21-29,30-39,40-49,50-59,OVER 59 


BOTO 30 



i 


I 

j 

t 


1 


M 


/ 









3. 


T stands for Territory (six sales territories identified by numbers 1 to 6) 

S stands for Salesperson, (three in each territory, identified by numbers 1 to 3) 
In the table headings, SALN01 means salesperson number 1 for that territory. 
In the second version, S#1 means the same thing. 


80 column printer or display version. 


10 REM SALES REPORT 2 
20 DIM G(6/3) 

30 READ T>S#D:IF T=-l THEN 50 

40 G(T^S)*G(T^S)+D:G<T,0)*GCT/0)+D:GOTO 30 

50 PR 1NT”TERR I TO RY"^ "SALNO 1•' SALNO 2”/ »SALNO 3*S "TO TAL" 

60 FOR T«1 TO 6:PRINTT# 

70 FOR S=1 TO 3:PRINTG<T.»S)> :NEXT S: PRINTGX T> 0) :NEXT T 

90 DATA 1/1^500/2«U1000«3« l«200/2> 1« 150.^2^ 1«400^2«3#500 

100 DATA 3> !.» 1000«3^2>2000«3^3^ 1500^4/1« 1500.»4/2/ 1500«4/3«2000 

110 DATA 5« 1« 100«5/2» 100^5/3^ 100 

120 DATA 6/1/650/6/2/760/6.>3^800 

130 DATA -1/-1/-1 


RUN 


TERRITORY 

SALNO1 

SALNO 2 

SALNO3 

TOTAL 

1 

500 

0 

0 

500 

2 

1550 

0 

500 

2050 

3 

1200 

2000 

1500 

4700 

4 

1500 

1500 

2000 

5000 

5 

100 

100 

100 

300 

6 

650 

760 

800 

2210 


40 column display version. 


10 REM *»» SALES REPORT 2 
20 DIM 6 <6, 3) 

30 READ T,S,Ds IF T = - 1 THEN 50 

40 LET G<T,S> = 6<T,S) + D: LET G(T,0) = G<T,0) + Ds GOTO 30 

50 PRINT "TERRITORY"; TAB< 12);"S#1"; TAB< 18);"S#2"; TAB( 24);"S#3"; 

TAB (30 >;"TOTAL"s PRINT 
60 FOR T = 1 TO 6: PRINT T;sX = 12 

70 FOR S = 1 TO 3s PRINT TAB( X + 4 - LEN < STR* (G <T, S> ) ) > ; G <T, S) ; s 

X = X + 6s NEXT Ss PRINT TAB < X + 4 - LEN < STR* (G <T, O) ) ) ) ; G <T, O) s 

NEXT T 

90 DATA 1,1,500,2,1,1000,3,1,200,2,1,150,2,1,400,2,3,500 

lOO DATA 3,1,1000,3,2,2000,3,3,1500,4,1,1500,4,1,1500,4,2,1500,4,3,2000 

110 DATA 5,1,100,5,2,100,5,3,lOO 

120 DATA 6,1,650,6,2,760,6,3,800 

130 DATA -1,-1,-1 
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4. In version one, you may need to insert the following statement: 

75 PRINT 

80 column printer or display version. 

10 REM SHOPPING GUIDE 
15 DIM PC 10.,4)/T<4) 

18 REM READ IN DATA 
20 FOR S=1 TO 4 

30 FOR 1=1 TO 10: READ P(I#S);NEXT I:NEXT S 
40 REM PRINT IT OUT 
50 PRINT"ITEM "STORE 1 •*, 2, 3^ 4 

60 FOR 1=1 TO 10:PRINTI, 

70 FOR S=1 TO 4:PRINTP(I.,S>/:T<S> = T<S)+P< WS):NEXT S 
80 NEXT I 

90 PRINT"TOTALS">:F0R X=1 TO 4:PRINTTCX)/:NEXT X 

100 DATA 1,2,3*4^5^6,7,8/9^10 

110 DATA 10,9,8,7,6,5,4,4,2,1 

120 DATA 1,1,2,2,3,3,4,4,5,5 

130 DATA4,4,5,5,6,6,7,7,8,8 


ITEM # 
1 
2 

3 

4 

5 

6 

7 

8 

9 

10 

TOTALS 


STOREl 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
55 


2 

10 

9 

8 

7 

6 

5 

4 

4 

2 

1 

56 


3 

1 

1 

2 

2 

3 

3 

4 

4 

5 
5 

30 


4 

4 

4 

5 

5 

6 
6 
7 

7 

8 
8 

60 


40 column display version. 


10 

REM *** SHOPPING GUIDE 





20 

DIM P<10,4),T<4) 





30 

REM »»* READ DATA INTO ARRAYS 




40 

FOR S = 1 TO 4 





50 

FOR I = 1 TO 10: READ P<I,S) 

s NEXT Is 

NEXT S 



60 

REM »*»DISPLAY ROUTINE 





70 

PRINT "ITEM#"; TAB< 8);"STORE#l"; TABC 

16);"#2"; 

TABC 24); 

"#3"; 


TABC 32);"#4"! PRINT 





80 

FOR I = 1 TO 10s PRINT I;s LET M = 8 




90 

FOR S = 1 TO 4s PRINT TABC 
LET M = M + 8: NEXT S 

M) ;PCI,S); 

s LET TCS) 

= TCS) + 

PCI,S) s 

100 

PRINT 





110 

NEXT I 





120 

LET M = 8s PRINT "TOTAL";: 
LET M = M + 8: NEXT X 

FOR X = 1 

TO 4s PRINT 

TABC M) 

;TCX) ; s 

130 

DATA 1,2,3,4,5,6,7,8,9,10 





140 

DATA 10,9,8,7,6,5,4,3,2,1 





150 

DATA 1,1,2,2,3,3,4,4,5,5 





160 

DATA 4, 4, 5, 5, 6, 6, 7, 7, 8, 8 
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□ Yes, send me your free catalog, 
BRAINFOOD, which lists over 80 
microcomputer books covering 
software, hardware, business 
applications, general computer literacy 
and programming languages. 

I understand that you will give me $1 
off my next order when I order from 
BRAINFOOD. 


NAME_ 

ADDRESS _ 

CITY, STATE, ZIP 


□ Yes, send me your free catalog, 
BRAINFOOD, which lists over 80 
microcomputer books covering 
software, hardware, business 
appiications, general computer literacy 
and programming languages. 

I understand that you will give me $1 
off my next order when I order from 
BRAINFOOD. 


NAME _ 

ADDRESS _ 

CITY, STATE, ZIP 


□ Yes, send me your free catalog, 
BRAINFOOD, which lists over 80 
microcomputer books covering 
software, hardware, business 
applications, general computer literacy 
and programming languages. 

I understand that you will give me $1 
off my next order when I order from 
BRAINFOOD. 


NAME_ 

ADDRESS _ 

CITY, STATE, ZIP 


$1 

OFF 

NEXT 

ORDER! 


$1 

OFF 

NEXT 

ORDER! 


$1 

OFF 

NEXT 

ORDER! 


FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 


Mail To: 


dilithium Press 
P.O. Box 606 
Beaverton, OR 97075 

Or Call: 


800-547-1842 


FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
CATALOG FREE CATA 
LOG FREE CATALOG 
FREE CATALOG FREE 
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MORE HELPFUL WORDS 

FOR YOU 



Computers for Everybody 

Jerry Willis and Merl Miller 

This fun-to-read book covers ail the things you should know 
about computers. If you’re anxious to buy one, use one or 
just want to find out about them, read this book first. 

ISBN 0-918398-49-5 $5.95 


dilithium Press, P.O. Box 606, Beaverton, OR 97075 


Peanut Butter and Jelly Guide to Computers 

Jerry Willis 

This entertaining book is a simple, easy-to-digest source of 
information on personal computing. It leads you through all 
the essential knowledge of “computer literacy.” 

ISBN 0-918398-13-4 $9.95 


Nailing Jeliy to a Tree 

Jerry Willis and William Danley, Jr. 

This is a book about software. The emphasis is on learning 
to use the thousands of available programs that have 
already been written, and adapting them to your machine. 

ISBN 0-918398-42-8 $15.95 


Smaii Computers for the Smaii Businessman 

Nicholas Rosa and Sharon Rosa 


If you’ve ever considered a computer for your business but 
didn’t know where to turn, this is the book that will arm you 
with all the information you’ll need to make an intelligent, 
cost-effective decision. 


ISBN 0-918398-31-2 


$16.95 


Send to: diiithium Press, P.O. Box 606, Beaverton, OR 97075 

Please send me the book(s) I have checked. I understand that if I’m not fully satisfied, I can return ' 
the book(s) within 10 days for full and prompt refund. 

_Computers for Everybody _Peanut Butter and Jelly Guide to Computers 

_Nailing Jelly to a Tree _Small Computers for the Small Businessman 

□ Check enclosed $ □ Please charge my 

Payable to diiithium Press □ VISA DMastercharge 

□ Send me your catalog of books. #_Exp. Date__ 

Signature_ _ 

Name ___ _ _ 

Address _ ' _ 

City, State, Zip _,_ 1 B 
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An Experience in 
Building 8c Sharing 








Geodesic domes have become increasingly popular structures since Buckminster Fuller 
introduced the idea in the '30's. Conservation of materials and energy have made the 
principles of efficiency even more important today. In the DOMEFILM, two young 
people, Robin age 19 and Joe age 22, design and build their own home in the Santa 
Cruz Mountains of California. While not professionals, they apply their knowledge of 
mathematics, geometry, and carpentry, doing all the construction themselves from 
basic materials. The labor and process of building a 28 foot, four frequency alternate 
breakdown geodesic home with sound principles of contruction becomes an experience 
in living and working together, sharing a great sense of joy and accomplishment. 


27 minutes 16mm Color 
Sale price: $375 Rental: $37.50 

p/us shipping and appiicab/e tax 
Also inquire about the one hour version 
and video cassettes. 





4530 - 18th Street, Dept. D 
San Francisco, CA. 94114 

(415) 863-6100 



Released by FILM WRIGHT 















































































I 





! 

i 































